Add(Application,8763891,511,459)
{
}

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;

while not FStop and  Compare[/code]изменить на 
while not FStop and  not Compare[/code] то Before работает правильно, но пробдемы с NUL :(
Add(Repeat,8556665,224,84)
{
 Op1=Integer(1000)
 Check=1
 link(onRepeat,3293646:doEvent1,[])
 link(Op2,16741111:GetData,[(237,74)(433,74)(433,127)(482,127)])
}
Add(Application,4476606,329,133)
{
 Info="RecursiveSort"
 Wait=1
}
Add(Hub,3293646,273,84)
{
 OutCount=3
 link(onEvent1,4793623:doOperation,[(334,90)(334,34)])
 link(onEvent2,11297932:sort,[])
 link(onEvent3,4476606:doProcessMessages,[(317,104)(317,139)])
}
Add(Button,16138926,119,77)
{
 Left=110
 Top=10
 Width=60
 Height=25
 Caption="Sorting"
 Point(doCaption)
 link(onClick,14389929:doSwitch,[])
}
Add(MultiElementEx,11297932,350,91)
{
 @Hint=#7:Sorting|
 Mode=1
}
BEGIN_SDK
  Add(EditMultiEx,16571958,3,3)
  {
   WorkCount=#4:sort|
   EventCount=#4:Back|
   Width=488
   Height=325
  }
END_SDK
Add(Switch,14389929,175,77)
{
 DataOn=String(Stop)
 DataOff=String(Sorting)
 Point(onOn)
 Point(onOff)
 link(onSwitch,16138926:doCaption,[(217,83)(217,69)(103,69)(103,83)])
 link(onOn,8556665:doRepeat,[])
 link(onOff,8556665:doStop,[])
}
Add(Label,13630714,490,28)
{
 Left=225
 Top=15
}
Add(Math,4793623,364,28)
{
 Op1=1
 link(onResult,2562316:doEvent1,[])
 link(Op2,4793623:Result,[(377,18)(414,18)(414,69)(370,69)])
}
Add(Hub,2562316,427,28)
{
 link(onEvent1,13630714:doText,[])
 link(onEvent2,16741111:doData,[(467,41)(467,90)])
}
Add(EventFromData,16741111,476,84)
{
}


[size=-2]------ Добавлено в 13:07 [/size]
опять не загнало в коды