Letzte 5 Zeichen in Memo Lines kopieren

[taktaky]

Hallo

ich möchte nicht den ganzen Inhalt in Memo kopieren sondern nur die letzte 5 Zeichen von
jeder Line (Zeile)

Bei Edit-Feld ist einfach. Beispiel :

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, lepos : Integer;
alttext, neutext, zeichen : String;
begin
alttext := Edit1.Text;
lepos:=Length(alttext);
Neutext:='';
for i:= lepos-5 to lepos do

begin
zeichen:=Copy(alttext,i,1);
neutext:=neutext+Zeichen;
Edit2.Text:=Neutext;

end;
end;

Wie soll die Sachen bei Memo oder bei ListBox ?