Zeichen aus einem TMemo löschen

[crisbinfranke]

Guten Abend liebe Delphi Fans.
Ich bin grade dabei mich ein wenig mit der Steganographie in
Verbindung mit Delphi zu beschäftigen und hänge nun...
Und zwar schmeißt mir mein Programm ein Zeichen zu viel in einem
Memo Feld aus.Ich habe es mit folgendem Code probiert, aber leider verschwindet das
Zeichen nicht. Weiß jemand von euch eine eventuell andere Lösung?

Code:

procedure TForm1.Button1Click(Sender: TObject);
var dertext: string;
begin
  dertext := Memo1.Text;
  dertext := StringReplace(dertext,'@','',[rfReplaceAll]);
  Memo1.Text := dertext;
end;

p.s. wieso ich grade ein @ löschen will? Meine Abbruchbedingen zum durchsuchen des Textes sind 2x @ und eines wird aus irgendeinem Grund übernommen. Ist zwar nicht die richtige Art, aber ich möchte das es optisch funktioniert :-)

[himitsu]

Eigentlich sollte dein Code alle @ entfernen ... ich seh jedenfalls keinen Grund, warum es nicht gehn soll :gruebel:

Wobei man das natürlich noch kürzen kann.

Delphi-Quellcode:

begin
  Memo1.Text := StringReplace(Memo1.Text,'@','',[rfReplaceAll]);
end;