Add(Position,9888936,231,210)
{
 Target="-"
 link(onSearch,2969437:doValue,[])
 link(Str,5830266:Var3,[(237,191)])
}
Add(Delete,14266688,217,266)
{
 link(onDelete,11588674:doText,[])
 link(Str,5830266:Var2,[])
 link(Count,9888936:Position,[])
}
Add(Memory,1278521,217,140)
{
 Default=String(Фигня-чухня-толкотня)
}
Add(Memory,2969437,280,210)
{
}
Add(GetDataEx,5830266,210,182)
{
 link(Data,1278521:Value,[])
}
Add(Button,11623978,105,210)
{
 Left=45
 Top=75
 link(onClick,12181742:doFor,[])
}
Add(Label,11588674,273,266)
{
 Left=135
 Top=80
}
Add(For,12181742,154,210)
{
 End=1
 link(onEvent,9888936:doSearch,[])
 link(onStop,14266688:doDelete,[(201,223)(201,272)])
}

   if FPos <= 0 then FPos := 1; [/code]
а не 
   if FPos < 0 then FPos := 0; [/code]

Add(Position,9888936,189,175)
{
 Target="Фи"
 Point(doReset)
 link(onSearch,6838838:doMessage,[])
 link(Str,1278521:Value,[])
}
Add(Button,11623978,56,182)
{
 Left=45
 Top=75
 link(onClick,13107861:doEvent1,[])
}
Add(Memory,1278521,189,105)
{
 Default=String(Фигня-чухня-толкотня)
}
Add(Message,6838838,238,175)
{
}
Add(Hub,13107861,112,182)
{
 link(onEvent1,9888936:doReset,[])
 link(onEvent2,9888936:doSearch,[(166,195)(166,181)])
}

procedure THIPosition._work_doReset;
begin
  FPos := 0;
end;