Individuelle Positionen für Frames.

[Metallicwar]

Neue Frage, neues Thema
Und zwar....

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  i:Integer;
  zaehler: Integer;
begin
    zaehler:= 0;
    TestForm:=TForm.Create(Self);
    TestForm.ClientHeight:=1200;
    TestForm.ClientWidth:=700;
for i := 0 to CheckListBox1.Items.Count-1 do
if CheckListBox1.Checked[i] then
  if zaehler <= 10 then
    begin
      TestFrame:=TFrame4.Create(Self);
      TestFrame.Name:=''+(CheckListBox1.Items[i]);
      TestFrame.Top:= Random(1200);
      TestFrame.Parent:=TestForm;
      zaehler:= zaehler + 1;
      TestFrame.Show;
    end
    else
    begin
      ShowMessage('Zähler ist 10');
    end;
    TestForm.Show;
end;
end.

Meine Frage:
Wie kriege ich es hin, dass die Frames individuelle Werte erhalten? Momentan hab ich einfach Zufallswerte zugewiesen.
Ziel: Die ersten 5 Frames sollen untereinander angeordnet werden(da mehr nicht auf ein DIN A4 Seite passen) die nächsten 5 daneben und wieder 5 untereinander.
Wie könnte ich das umsetzen, dass die Frames nicht kreuz und quer (Random) auf dem Formular verteilt sind?