Eigentlich sollte dein Code alle @ entfernen ... ich seh jedenfalls keinen Grund, warum es nicht gehn soll
Wobei man das natürlich noch kürzen kann.
Delphi-Quellcode:
begin
Memo1.Text := StringReplace(Memo1.Text,'@','',[rfReplaceAll]);
end;
Ein Therapeut entspricht 1024 Gigapeut.