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;