Man schreibt einfach in eine StringList und diese StringList zeigt die Form einfach in dem Memo an.
... oder man definiert Write2Memo mit einem TStrings-Parameter anstelle von TMemo und übergibt Memo1.Lines an diesen. Etwa so:
Delphi-Quellcode:
procedure Write2Memo(ALines: TStrings);
begin
ALines.BeginUpdate;
try
ALines.Add('111');
ALines.Add('222');
ALines.Add('333');
finally
ALines.EndUpdate;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
Write2Memo(Memo1.Lines);
Write2Memo(ListBox1.Items); // Geht dann z.B. auch für Listboxen
end;