Oder du verwendest den obigen Code weiter und wendest anschließend eine Funktion wie
rtrim an.
Die kann man auch leicht selbt machen, mit einer einfachen Schleife, falls du sie für Delphi nicht findest. (Solange letztes Zeichen Punkt oder Komma ist, entferne das letzte Zeichen)
Falls du es doch mit einer RegExp machen solltest, denke bitte daran, dass es auch andere Endungen als .de und .com gibt. Es gibt auch TopLevel-Domains, die länger als 4 Buchstaben sind. Und auch eine Domain ohne einen Punkt kann eine gültige Domain sein. Leider gibt es immer noch viel Software, die es da zu genau nimmt und verschiedene, völlig legale E-Mail-Adressen als inkorrekt erkennt...
Liebe Grüße,
Valentin