Zeichen in Memo ersetzten und Formatierung beibehalten?!

[p80286]

Delphi-Quellcode:

type

   { TForm1 }

   TForm1 = class(TForm)
     Button1: TButton;
     Button2: TButton;
     Label1: TLabel;
     Label2: TLabel;
     ListBox1: TListBox;
     ListBox2: TListBox;
     Memo1: TMemo;
     Memo2: TMemo;
     Memo3: TMemo;
     procedure Button1Click(Sender: TObject);
     procedure Button2Click(Sender: TObject);
     procedure Button3Click(Sender: TObject);
   private
     function Coding(x: string): string;
     function Decoding(x: string): string;

   public

   end;

procedure TForm1.Button3Click(Sender: TObject);
begin
   if edit1.text='ß' then showmessage('');
end;

end.

Ich hab Deinen Source mal auf das absolut notwendige zusammen gestrichen.
Das kann nicht kompilieren, geschweige denn ein "ß" in " " übersetzen.

Gruß
K-H