TGridPanel - Colums und Rows zur Laufzeit erzeugen

[bwolf]

Hi Leute,
ich will zur Laufzeit die Columns und Rows eines TGridPanels dynamisch erzeugen, aber das klappt nicht so ganz.
Ich möchte einfach ein GridPanel mit 2 Spalten und 2 Zeilen haben - also 4 Felder.
Diese sollen alle die gleiche Größe haben - also als SizeStyle ssPercent und als Value = 50.

Ich versuche das wie folgt:

Code:

// Erstellen der Spalten und Zeilen
procedure TForm1.Button1Click(Sender: TObject);
begin
 GridPanel1.ColumnCollection.Add;
 GridPanel1.ColumnCollection.Add;
  GridPanel1.ColumnCollection.BeginUpdate;
    GridPanel1.ColumnCollection[0].SizeStyle := ssPercent;
    GridPanel1.ColumnCollection[0].Value := 50;
    GridPanel1.ColumnCollection[1].SizeStyle := ssPercent;
    GridPanel1.ColumnCollection[1].Value := 50;
  GridPanel1.ColumnCollection.EndUpdate;


  GridPanel1.RowCollection.Add;
  GridPanel1.RowCollection.Add;
  GridPanel1.RowCollection.BeginUpdate;
    GridPanel1.RowCollection[0].SizeStyle := ssPercent;
    GridPanel1.RowCollection[0].Value := 50;
    GridPanel1.RowCollection[1].SizeStyle := ssPercent;
    GridPanel1.RowCollection[1].Value := 50;
  GridPanel1.RowCollection.EndUpdate;
end;


// Hinzufügen der Panels, 1 pro Buttonklick
procedure TForm1.Button2Click(Sender: TObject);
var
  p : TPanel;
begin
  p := TPanel.Create(self);
  p.Parent := GridPanel1;
  p.Align := alClient;
  GridPanel1.ControlCollection.AddControl(p);
end;

Kann mir einer sagen was ich falsch mache?
Danke!