Движение сверху вниз

uses Graphabc,CRT;
type TBubble=class 
private 
fx,fy,fr:integer; 
public
constructor create (x,y,r:integer);
begin
fx:=x;
fy:=y;
fr:=r;
end;
 
procedure Show;
begin
Circle(fx,fy,fr);
end;
 
procedure SetX(x:integer); 
begin
fx:=x;
end;
 
procedure SetY(y:integer);
begin
fy:=y;
end;
 
procedure SetR(r:integer); 
begin
fr:=r;
end;
 
property x:integer read fx write SetX; 
property y:integer read fy write SetY;
property r:integer read fr write SetR;
 
end;
                        type TColorBubble=class(TBubble)
                        fc:integer;
                        constructor Create(x,y,r,c:integer);
                            begin
                              fc:=c;
                            inherited create(x,y,r);
                            end;
                            
                            procedure show;
                            begin
                             SetPenColor(fc);
                             SetBrushColor(fc);
                           inherited show;
                           end;
                        
                        procedure hide;
                        begin
                        SetPenColor(clWhite);
                        SetBrushColor(RGB(176,224,230));
                        ClearWindow(RGB(30,144,255)); ; 
                        inherited show;
                        end;
 
                        procedure move(v:real);
                        begin
                          y:=round(y+r*v);
                          x:=x+random(6)-3; 
                        if y-1<0 then y:=windowheight;
                        if x-1<0 then x:=WindowWidth;
                        end;
                        end;
 
          var Buble:array[1..150] of TColorBubble;
          i:integer;
         begin
         LockDrawing;
         for i:=1 to 150 do
          Buble[i]:=TColorBubble.Create(Random(500),Random(400),random(10),
          RGB(173,196,222));
       
         repeat
          for i:=1 to 150 do begin
          Buble[i].move(1.0);
          Buble[i].Show;
          end;
          Redraw;
          Delay(30);
          for i:=1 to 150 do
          Buble[i].Hide;
          until keypressed;
          end.