[Alegun]

Ещё хорошо бы добавить проверку на кол-во строк в Memo2, иначе будет AV, если строк в нём меньше чем в первом

Код:

for i := 0 to Memo1.Lines.Count-1 do
 if i < Memo2.Lines.Count then Memo3.Lines.Append(Memo1.Lines[i] + '-' + Memo2.Lines[i]);