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

[xsenen]

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

[090808]

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

как-то так :)

[wolmer]

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;

[xsenen]

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