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