procedure THIRepeat._work_doRepeat;
begin
   FStop := false;
   if _prop_Check = 0 then
 [color=red]    while not FStop and  Compare[/color](  
        ReadData(_Data,_data_Op1,@_prop_Op1),
        ReadData(_Data,_data_Op2,@_prop_Op2),_prop_Type) do
      _hi_OnEvent(_event_onRepeat)
   else
     repeat
       _hi_OnEvent(_event_onRepeat);
     until FStop or Compare(
        ReadData(_Data,_data_Op1,@_prop_Op1),
        ReadData(_Data,_data_Op2,@_prop_Op2),_prop_Type);
end;