[Himikat]

Не работает этот цикл)
Есть список с именами (Memo) при запуске цикла хочу, чтобы создавалась запись с заполненным столбцом из списка, но получается почему то не циклически: создается одна запись при i=количеству строк в Мемо.

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

я не понимаю почему так происходит ведь он должен создавать столько строк, сколько их в списке, а не только одну.