FreeAndNil geht nicht

[sakura]

So:

Delphi-Quellcode:

procedure TfrmEin.FormHide(Sender: TObject);
var i,j : integer;
begin
  for i := sg.FixedCols to sg.ColCount - 1 do   
    for j := sg.FixedRows to sg.RowCount - 1 do  
      if sg.Objects [i,j] <> nil then begin
        sg.Objects [i,j].Free;
        sg.Objects [i,j] := nil;
      end;
end;

......