[Д'эльфийка]

Задача наверняка не сложная, просто у меня опыта не хватает (пишу всего пару недель) .
Необходимо к каждой строке текстового файла f1 добавить строки файла f2.

Код:

begin
AssignFile(f1,PChar(Memo1.Text));
Reset(f1);
While not EOF(f1) do 
begin
  ReadLn(f1,st1); 
  AssignFile(f2,PChar(Memo2.Text));
  Reset(f2);
   While not EOF(f2) do 
   ReadLn(f2,st2); 
   stM:= st1+' '+ st2;
   WriteLn(fMain, stM);
  end;
  CloseFile(f2);
end;
begin
CloseFile(f1);
CloseFile(fMain);
end;

Не работает. Почему-то из второго файла берет только последнюю строку