[Nyctos Kasignete]

Проще всего, наверное, так

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  StringGrid2.ColCount := StringGrid1.ColCount;
  StringGrid2.Rows[1].AddStrings(StringGrid1.Rows[1]);
end;

Скопировали вторую строку из StringGrid1 в StringGrid2.

P.S. А может, даже так (лучше)

Код:

procedure TForm1.Button2Click(Sender: TObject);
begin
  StringGrid2.ColCount := StringGrid1.ColCount;
  StringGrid2.Rows[1].Assign(StringGrid1.Rows[1]);
end;