[AND_REY]

Подправил:

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var R: integer;
 x: integer;
 y: integer;
 x0: integer;
 y0: integer;
begin
Form1.Canvas.Rectangle(x0-R,y0-R,x0+R,y0+R);
R:=100; 
n:=n+1; 

x0:=200; 
y0:=200; 

x:=Round(x0+R*Cos((pi/180)*n)); 
y:=Round(y0+R*Sin((pi/180)*n)); 

Form1.Canvas.MoveTo(x0, y0); 
Form1.Canvas.LineTo(X, Y); 

Edit1.Text:=FloatToStr(n)+' °'; 

if n = 360 Then n:= 0;
end;