Objekte in Spalten und Reihen anordnen

[Luckie]

In der letzten Arbeitsstunde vor Weihnachten habe ich irgendwie einen Blackout.

Ich will sechs Objekte in drei Reihen mit zwei Objekten in einer Spalte anordnen:

Delphi-Quellcode:

procedure TForm2.tbbTemplateClick(Sender: TObject);
var
  i: Integer;
begin
  for i := 0 to 5 do
  begin
    ImageEnVect1.LayersAdd;
    ImageEnVect1.Layers[i].VisibleBox := True;
    ImageEnVect1.Layers[ImageEnVect1.LayersCurrent].Width := Trunc(DEFAULTWIDTH * 0.80);
    ImageEnVect1.Layers[ImageEnVect1.LayersCurrent].Height := Trunc(DEFAULTHEIGHT * 0.80);
    ImageEnVect1.Layers[ImageEnVect1.LayersCurrent].PosX := DEFAULTWIDTH * i + 50;
    if i mod 2 = 0 then
      ImageEnVect1.Layers[ImageEnVect1.LayersCurrent].PosY := DEFAULTHEIGHT * i + 25
    else
      ImageEnVect1.Layers[ImageEnVect1.LayersCurrent].PosY := 80;
    ImageEnVect1.IO.LoadFromFileJpeg(ExtractFilePath(ParamStr(0)) + 'empty.jpg');
    ImageEnVect1.Update;
  end;
end;

Das bringt allerdings nicht das gewünschte Ergebnis.

Wie gesagt, ich habe einen absoluten Blackout.