[EvilRussian]

Код:

for i:=0 to Memo1.Lines.Count-1 do
 begin
  DataModule1.DataSourcePO.DataSet.Insert;
  EditPO.DBEdit1.Text:='Íåòáóóê';
  EditPO.DBEdit2.Text:=Memo1.Lines.Strings[i]
 end;

Харе тупить, юзайте учебник.