Stringgrid auf einmal wieder leer

[Dummfisch]

Delphi-Quellcode:

procedure sgformatieren (col, row, backgroundcolor, fontcolor : integer; style, text : string);
var rect : Trect;
begin

form_main.sg_lotto.DefaultDrawing:=false;
rect := form_main.sg_lotto.cellrect(col,row);
form_main.sg_lotto.Canvas.Brush.Color := backgroundcolor;
form_main.sg_lotto.Canvas.FillRect(Rect);

form_main.sg_lotto.Canvas.Font.Color := fontcolor;
if style = 'bold' then
begin
  form_main.sg_lotto.canvas.Font.Style := [fsbold];
end else
begin
  form_main.sg_lotto.canvas.Font.Style := [];
end;
DrawText(form_main.sg_lotto.Canvas.Handle, PChar(text), Length(text), Rect, DT_CENTER);

end;


procedure zahlen_erzeugen;
var i, j, k : integer;
begin

k := 1;

for i := 0 to 6 do
begin
  for j := 0 to 6 do
  begin
    form_main.sg_lotto.cells[j,i] := inttostr(k);
    sgformatieren(j,i,clwhite,clblack,'normal',form_main.sg_lotto.cells[j,i]);
    inc(k);
  end;
end;

end;

die Prozedur zahlenerzeugen wird halt mit einem Button aufgerufen. Da wird das Stringgrid auch gefüllt (wenn ich will auch farbig - alles kein problem)
Sobald ich aber onformcreate zahlenerzeugen() ausführen lasse bleibt das Stringgrid leer bzw. wird einfach wieder weiß (ist dann halt einfach ein weißes Rechteck).... Das gleiche passiert beim minimieren des Programms.