[Yurk@]

Код:

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