no entinedo como iria esto
Código Delphi
[-]Copy('jhonny.yonny@clubdelphi.com',
Pos('jhonny.yonny@clubdelphi.com','@'),
Length('jhonny.yonny@clubdelphi.com'));
porq primero COPy y luego usas POST, si lo primero fue
if (Pos(DBEdit9.Text, '@') <> 0) then
if (Pos(DBEdit9.Text, '.') <> 0) then
entonces no entiendo, eso seria abajo d la condicion, pero porq
POS si ya esta usado arriba.