[adrall]

Tal ver deberias utilizar Cells, en lugar de Rows o Cols, si lo que quieres es eliminar el contenido de cada celda:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
i,j:integer;
begin
   with StringGrid1 do
   begin
      for i := 1 to colCount - 1 do
      for j := 1 to RowCount - 1 do
         Cells[i,j]:='';
   end;
end;