"MineSweeper" - Probleme mit Rundtime-Buttons

[64Jabor]

Na die anderen werden zur Laufzeit erstellt.
Dazu habe ich eine Prozedur, die je nach Schwierigkeitsgrad 17 bis max 40 Buttons (zweidimensional) erstellt.

Hier die Prozedur:

Delphi-Quellcode:

procedure TFrmMS.GenerateBtns;
var BtnIndexX, BtnIndexY: integer;
begin
 For BtnIndexX:=0 to ColsForLevel-1 do
   For BtnIndexY:=0 to RowsForLevel-1 do
    begin
     MineBtn[BtnIndexX, BtnIndexY] := TSpeedButton.Create(FrmMS);
     MineBtn[BtnIndexX, BtnIndexY].Height := 14;
     MineBtn[BtnIndexX, BtnIndexY].Width := MineBtn[BtnIndexX, BtnIndexY].Height;
     MineBtn[BtnIndexX, BtnIndexY].Top := 50 + BtnIndexY * 14;
     MineBtn[BtnIndexX, BtnIndexY].Left := (ClientWidth - (ColsForLevel-1) * MineBtn[BtnIndexX, BtnIndexY].Width) div 2 + BtnIndexX * MineBtn[BtnIndexX, BtnIndexY].Width;
     MineBtn[BtnIndexX, BtnIndexY].Parent := FrmMS;
     MineBtn[BtnIndexX, BtnIndexY].OnClick := MineBtnDad.OnClick;
    end;
end;