[marcoszorrilla]

Si entiendo bien lo que quieres te podría servir esto:

Código Delphi [-]
 procedure TForm1.Button2Click(Sender: TObject);
 var
   I, J, K : Integer;
 begin
   K := 0;
   with StringGrid1 do
     for I := 0 to ColCount - 1 do
       for J:= 0 to RowCount - 1 do
         begin
           K := K + 1;
           Cells[I,J] := '';
         end;
 end;

Un Saludo