Соединить слова по их count

[Stilet]

Всё упирается в недостаточности знаний и в сторону малого опыта с данной средой.

var q,w:TStringList;i:integer;
begin
 q:=TStringList.Create;q.LoadFromFile('file1');
 w:=TStringList.Create;w.LoadFromFile('file2');
  for i:=0 to min(q.Count,w.count)-1 do begin
   q[i]:=q[i]+w[i];
  end;
 Memo3.Lines.Text:=q.text;
 w.free; q.free;
end;