#hws
  lng.decl_loc_var(h, 'integer')
  println(h, ' := GetDC(', handle, ');')
  println('movetoex(', h, ', ', x1, ', ', y1, ', nil);')
  println('lineto(', h, ', ', x2, ',',  y2, ');')

Add(For,14132473,210,63)
{
 End=40000
 link(onEvent,1540346:doDraw,[])
}
Add(Button,2905006,154,63)
{
 Left=150
 Top=55
 link(onClick,14132473:doFor,[])
}
Add(Img_Line,1540346,266,63)
{
 DrawSource=1
 link(Point1,8838912:Point,[])
 link(Point2,10428738:Point,[(286,55)(328,55)])
}
Add(PointXY,8838912,273,14)
{
 X=10
 Y=10
}
Add(PointXY,10428738,322,14)
{
 X=10
 Y=100
}

#pas
procedure TClassFTCG_Tools_1050E60.event_doCompare(var Data:TData; index:word);
var
  h1:integer;
  i4:integer;
begin
  h1 := GetDC(str2int(ToString(Data)));
  val2 := h1;
  for i4 := 0 to 180000 do
  begin
    movetoex(val2, 10, 10, nil);
    lineto(val2, 10, 100);
  end;
end;