Не могу разобраться с таймером

uses GraphABC;
 
type
  tObj = class
    x, y, dx, dy, r : Real;
    t, tx : Integer;
    
    procedure Draw;
    begin
      var(pc,bc):=(Pen.Color,Brush.Color);
      Pen.Color := clGray;
      Brush.Color := clDarkGray;
      Circle(Round(x),Round(y),Round(r));
      Pen.Color := pc;
      Brush.Color := bc;
    end;
    
    constructor (x, y, dx, dy, r : Real; t : Integer);
    begin
      Self.x := x; Self.y := y;
      Self.dx := dx; Self.dy := dy;
      Self.r := r; Self.t := t; tx := 0;
      Draw;
    end;
    
    procedure Move;
    begin
      tx += 1; if tx < t then begin Draw; Exit; end;
      if Not (x+dx).InRange(r,Window.Width-r) then dx*=-1+Random(-1,1)/100;
      if Not (y+dy).InRange(r,Window.Height-r) then dy*=-1+Random(-1,1)/100;
      tx:=0;x+=dx;y+=dy;Draw;
    end;
  end;
  
 begin
   var Obj := New List<tObj>;
   LockDrawing;
   loop 10 do Obj.Add(
     New tObj(Random(30,Window.Width-30), Random(30,Window.Height-30),
              Random(-3,+3)*10, Random(-3,+3)*10, Random(10,25), Random(2,10)));
   Redraw;
   repeat
     Sleep(20);
     Window.Clear;
     for var i := 0 to Obj.Count-1 do Obj[i].Move;
     Redraw;
   until False;
 end.