Delphi-Quellcode:
Var i:Integer;
begin
If Memo1:lines.Count>0 Then
For i:=0 To Memo1.Lines.Count-1 Do
Memo1.Lines[i]:='Dein Zeichen' + Memo1.Lines[i];
end;
In der Hilfe/hier im Forum sollte es dazu aber mehr als genug Beispiele geben.
Mfg
[Edit]Zu langsam
[/Edit]