[moyo18]

no entinedo como iria esto

Código Delphi [-]
Copy('[email protected]', 
Pos('[email protected]','@'), 
Length('[email protected]')); //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.