Копировать из Memo в StringGrid

Как копирнуть из memo в StringGrid У меня в стринге 2 колонки вот сижу мучаусь ...
надо чтоб было так : чтобы нажал на баттон и он копировал все в стринг

 

for i:=0 to memo1.lines.count-1 do
StringGrid.add(memo1.lines);

как-то так

 

Code:

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;

 

спасиб получилось