El problema con el codigo de vtdeleon es que no sería valido el siguiente:
jhonny.yonny@clubdelphi.com
Mas bien le agregaria algo que mire que despues de la arroba haya un punto(.) pero que ese punto no sea el ultimo caracter como bien ya lo ha indicado vtdeleon...
Parece que esto es mas complicado de lo que se cree, jejeje.
Ejemplo pachuco:
Código Delphi
[-]Copy('jhonny.yonny@clubdelphi.com',
Pos('jhonny.yonny@clubdelphi.com','@'),
Length('jhonny.yonny@clubdelphi.com'));
Eso me devolveria solo la cadena despues de la @ y alli si evaluar que haya un proximo punto y que ademas no sea el ultimo.