[roman]

Empezado por david duarte

a menos de que alguien tenga otra solucion

Se puede facilitar un poco con un sólo ciclo:

Código Delphi [-]
var
  I: Integer;

begin
  for I := 1 to StringGrid1.RowCount - 1 do
    StringGrid1.Rows[i].Clear;
end;

// Saludos