Ich mache das immer so, wobei ich die TMS nutze.
Delphi-Quellcode:
Procedure ClearSG(SG: TAdvStringGrid);
var
SL : TStringList;
begin
SL := TStringList.Create;
try
SL.Assign(SG.ColumnHeaders); //Spaltenüberschriften sichern
SG.Clear;
SG.RowCount := SG.FixedRows + 1;
SG.ColumnHeaders.Assign(SL);
finally
SL.Free;
end;
end;