Движение фигуры под углом

uses GraphABC;
var x,y,ugol,i:integer;
begin
  x:=100;
  y:=100;
  ugol:=30;
  LockDrawing;
  for i:=1 to 500 do
  begin
    Window.Clear;
    x:=x+round(sin(ugol*pi/180));
    y:=y+round(cos(ugol*pi/180));
    Circle(x,y,20);
    Redraw;
  end;
end.

uses GraphABC;
var x,y,dx,x1,y1,ugol,i:integer;
begin
  x:=100;
  y:=100;
  ugol:=30;
  LockDrawing;
  dx:=x;
 repeat
    Window.Clear;
    dx:=dx+5;
    x1:=x+round((dx-x)*cos(ugol*pi/180));
    y1:=y+round((dx-x)*sin(ugol*pi/180));
    Circle(x1,y1,20);
    sleep(100);
    Redraw;
until x+20>=windowwidth;
end.

uses GraphABC;
var i:integer;
   x,y,ugol,xs,ys: real;
begin
  x:=100; xs:=x;
  y:=100; ys:=y;
  ugol:=30;
  LockDrawing;
  for i:=1 to 500 do
  begin
    Window.Clear;
    x:=xs+i*sin(ugol*pi/180);
    y:=ys+i*cos(ugol*pi/180);
    Circle(round(x),round(y),20);
    Redraw;
  end;
end.

uses GraphABC;
var i:integer;
   x,y,ugol,xs,ys: real;
begin
  xs:=100;
  ys:=100;
  ugol:=30;
  LockDrawing;
  for i:=1 to 500 do
  begin
    clearwindow;//window.clear
    x:=xs+i*sin(ugol*pi/180);
    y:=ys+i*cos(ugol*pi/180);
    Circle(round(x),round(y),20);
    sleep(10);
    Redraw;
    if y+20>windowheight then break;
  end;
end.