[moyo18]

no entinedo como iria esto

Código Delphi [-]
Copy('jhonny.yonny@clubdelphi.com', 
Pos('jhonny.yonny@clubdelphi.com','@'), 
Length('jhonny.yonny@clubdelphi.com')); //Si la respuesta es vacia pues de entrada ya esto quiere
// decir que el email no es valido... De lo contrario...

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.