Заполнить окно квадратами (Delphi)

[SpaceLama]

Всем здравствуйте! Вопрос вот в чем. Нужно заполнить форму по всей площади рандомно семью (7) квадратами, т.е. при каждом запуске - квадраты разной величины и на разных местах. Как это можно сделать?(на Delphi)

[type_Oleg]

Примерно так. Только надо доработать, чтоб квадраты не перекрывали друг друга.
После var Form1..

implementation
uses Math;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,X1,Y1,t:Integer;
begin
 for i:=1 to 7 do
  begin
   X1:=Random(Width);
   Y1:=Random(Height);
   t:=Random(Min(Width-X1,Height-Y1));
   Canvas.Rectangle(X1,Y1,X1+t,Y1+t);
  end;
end;

initialization
  Randomize;
end.

[SpaceLama]

Сообщение от type_Oleg

Примерно так. Только надо доработать, чтоб квадраты не перекрывали друг друга.
После var Form1..

implementation
uses Math;
{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var i,X1,Y1,t:Integer;
begin
 for i:=1 to 7 do
  begin
   X1:=Random(Width);
   Y1:=Random(Height);
   t:=Random(Min(Width-X1,Height-Y1));
   Canvas.Rectangle(X1,Y1,X1+t,Y1+t);
  end;
end;

initialization
  Randomize;
end.

В этом то и проблема. К тому же этот алгоритм не совсем корректен, так как рандом может выбрать самую правую или самую нижнюю точку и в этом случае квадрат не отрисуется. Нужно вводить дополнительные условия, но я по не докумекал какие