[dr. F.I.N.]

Как-то так

Код:

  Memo1.Lines.Delimiter := '#';
  Button1.Caption := Memo1.Lines.DelimitedText;
  Memo2.Lines.Delimiter := '#';
  Memo2.Lines.DelimitedText := Button1.Caption;