como borrar elementos de un stringGrid

[PaulaGV]

hola!!!me gustaría saber como borrar los elementos de un stringGrid excepto los de la primer columna y primer fila que contiene títulos, yo hice lo siguiente pero obviamente no es correcto por que me borra todo, incluyendo los títulos:

Código Delphi [-]
procedure TForm1.Button3Click(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
begin
Rows[i].Clear;
Cols[j].Clear;
end;
end;
end;

[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;

[ecfisa]

Hola PaulaGV.

Sólo a fín de agregar otra alternativa ( ya que la propuesta por adrall es correctísima ) también podrías hacer:

Código Delphi [-]
procedure TForm1.btnClearClick(Sender: TObject);
var
  f: integer;
begin
  with StringGrid1 do
    for f:= 1 to RowCount - 1 do
      Rows[f].Text:= Cells[0, f];
end;

Saludos.

[PaulaGV]

muchísimas gracias por las respuestas, me fueron muy útiles!!!!