1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:

procedure MoveBot(Bot: TSimpleObject; Dest: TSimpleObject);
var  mx, my, nx, ny,  len : single; i: integer;
     X,Y: single;
begin;

 for i := 1 to 8 do
 begin
  mx := Bot.Position.X;
  my := Bot.Position.Y;

  X := Dest.Position.X;
  Y := Dest.Position.Y;

    nx := x-mx;
    ny := y-my;
    len := sqrt(nx*nx + ny*ny);


    if(len<=1)then begin
      mx:=x;
      my:=y;
    end
    else begin
      nx := nx / (len);
      ny := ny / (len);
      mx := mx + nx;
      my := my + ny;
    end;

    Bot.Position.X := mx;
    Bot.Position.Y := my;
  end;
end;