Hallo,
probiere mal
Delphi-Quellcode:
TYPE
TForm1 = CLASS(TForm)
Button1: TButton;
Memo1: TMemo;
Memo2: TMemo;
PROCEDURE Button1Click(Sender: TObject);
PRIVATE
Function SonderzeichenErsetzen(Zeile:string):string;
function TForm1.SonderzeichenErsetzen(Zeile:string):string;
Deine Function un die TForm1 einbinden.