procedure TForm1.Button1Click(Sender: TObject); begin StringGrid1.Cells[0,0]:=Memo1.Lines.Strings[0];//Первой ячейке присваиваем первую строку memo StringGrid1.Cells[1,0]:=Memo1.Lines.Strings[1];//Второй ячейке присваиваем вторую строку memo end;