a

program WalkToPoint;

const
  absX = 267;
  absY = 205;

procedure Walk(direction: (d_B, d_F, d_L, d_R));
var
  c, p: Integer;
begin
  case direction of
    d_B: begin
           c := (absX);
           p := (absY - 37);
         end;
    d_F: begin
           c := (absX);
           p := (absY + 43);
         end;
    d_L: begin
           c := (absX - 37);
           p := (absY);
         end;
    d_R: begin
           c := (absX + 37);
           p := (absY);
         end;
  end;
  MoveMouse(c, p);
  GetMousePos(c, p);
  ClickMouse(c, p, mouse_left);
end;

begin
  repeat
    Walk(d_R);
    Wait(600);
    Walk(d_B);
    Wait(600);
    Walk(d_L);
    Wait(600);
    Walk(d_F);
    Wait(600);
   until IsKeyDown(123);
end.