Добавление слов в конце каждой строки

[Taras2018]

Всем форумчанам, доброго времени суток! Друзья, помогите решить задачу!

На форме:

Кнопка (открыть файл через Opendialog) и Memo1.

Задача:
В memo1, к примеру, введено 3 слова, каждое с новой строки. При нажатии на кнопку открыть текстовый файл и в конце каждой строки добавить по слову из memo1. Если строк больше, чем слов в Memo1, то продолжить, добавляя слова.

К примеру текст в файле:

01.08.2018
12.08.2018
13.08.2018
05.08.2018
18.08.2018

А в Memo1 Текст:

_List1
_List2
_List3

То на выходе должен получится текст:

01.08.2018_List1
12.08.2018_List2
13.08.2018_List3
05.08.2018_List1
18.08.2018_List2

Делаю это в цикле, но почему то все слова добавляются сразу к каждой строке. В чем ошибка?

var 
f1,f2:TextFile;
s:string;
i:integer;
begin
..................
 Readln(f1,s);
//////////////////// Вот тут
for i := 0 to memo1.Lines.Count-1 do
s := s + memo1.Lines[i];
.......................
Writeln(f2,s);
end;

[Taras2018]

Все, проблему решил. Всем спасибо за помощь!

[zfox]

procedure TForm1.Button1Click(Sender: TObject);
var SL: TStringList; i, cnt: Integer;
begin
 SL:=TStringList.Create;
 SL.LoadFromFile('text.txt');
 cnt:=0;
 for I := 0 to SL.Count - 1  do
   begin
    SL.Strings[i]:=SL.Strings[i]+Memo1.Lines[cnt];
    if cnt = Memo1.Lines.Count - 1  then cnt:=0 else Inc(cnt);
   end;
 SL.SaveToFile('text_add.txt');
 FreeAndNil(SL);
end;