delphi приямоугольники

[tanek]

Здраствуйте дорогие форумчанины!
Наверное я вас измучила, но вы та последняя инстанция которая может мне помочь.
Мне надо написать программу на Delphi которая выводит ряд прямоугольников.
Я написала программу которая выводит один прямоугольник, а вот как сделать чтобы был целый ряд их я не могу сообразить. Помогить мне пожалуйста))))

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, Menus;

type
  TForm1 = class(TForm)
    Timer1: TTimer;
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    StartProgramm: TMenuItem;
    exit: TMenuItem;
    procedure Timer1Timer(Sender: TObject);
    procedure exitClick(Sender: TObject);
    procedure StartProgrammClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  x,y:integer;
  dx,dy:integer;

implementation

{$R *.dfm}
procedure Ris(var dx,dy:integer);
begin
     // стереть окружность
  form1.Canvas.Pen.Color := form1.Color;
  form1.Canvas.Rectangle(x, y, x + 20, y + 20);
  x := x + dx; // нарисовать окружность на новом месте
  y:=y+dy;
  form1.Canvas.Pen.Color := clBlack;
  form1.Canvas.Rectangle(x, y, x + 20, y + 20);
end;

procedure TForm1.exitClick(Sender: TObject);
begin
  ShowMessage('Спасибо что использовали нашу программу');
  halt;
end;



procedure TForm1.StartProgrammClick(Sender: TObject);
begin
  x := 0;
  y := 20;
  dx := 5;
  timer1.Interval := 50; // период возникновения события OnTimer - 0.5 сек
  form1.canvas.brush.color := form1.color;

end;

procedure Tform1.Timer1Timer(Sender: TObject);
begin
  Ris(dx,dy);
end;

end.

[Greblin]

Немного непонятно условие. Сейчас у Вас рисуется движущийся прямоугольник. А надо что? Несколько движущихся прямоугольников?