Проблема с программой Опции

[SkyRideR]

Задали задачу чтобы точка по окружности двигалась, я тут что-то писал, но как-то судя по всему криво, и не работает. помогите пожалуйста.
За ренее спасибо

program figure;
uses graph, crt;

 type
TPoint = object
 x, y, r : integer;
 t: real;
 color : integer;
      procedure Show;
      procedure Hide;
      procedure Move(dx, dy : integer);

 end;
 procedure TPoint.Show;
 begin
 putpixel (x, y, color);
 end;
  procedure TPoint.Hide;
 begin
 putpixel (x, y, emptyfill);
 end;
  procedure TPoint.Move;
  begin
  Hide;
  x:= round(dx+r*cos(t)); y:=round(dy+r*sin(t));
  Show;
  end;

  var

  GrDriver : integer;
  GrMode : integer;
  p1 : TPoint;
  r : integer;
  t: real;

  begin

 GrDriver:=detect;
  GrMode:=0;
  initgraph(GrDriver, GrMode, '');
  p1.x:=10; p1.y:= 20;
  p1.color:=white;
  p1.r:=10;
p1.t:=1;

  p1.Show;
 readkey;

  p1.Move(5,5);
 p1.Show;
     readkey;
 p1.Move(1,5);
 p1.Show;

 readkey;
   closegraph;
  end.