1:
2:
3:
4:
5:
6:
7:
8:
9:

function StringGrid_ClearAll(StringGrid: TStringGrid);
var
  I: Integer;
begin
  // Falls die Spaltenüberschrift nicht gelöscht werden möchte,
  // muss es for I := 1 to ... heissen
  for I := 0 to StringGrid.RowCount - 1 do
    StringGrid.Rows[I].Clear();
end;