[[egostar]]

Empezado por jefferson

oye parsero ya tengo la condicion: bueno aun que esa es solo para verificar que este el @. pero pues de alli se basan las demas condiciones.
gracias a los que opinaron y/o ayudaron.

Hola jefferson

Aunque esto de validar un correo tiene sus complicaciones, que te parece esto?

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  Correo: string;
begin
  Correo := 'usuario@correo.com';
  if (Pos('@',Correo) > 0) and
     (Pos('.',Correo) > 0) then
     ShowMessage('Correo Válido')
  else ShowMessage('Correo Inválido');
end;

Salud OS

PD: Usa las etiquetas delphi para que tu código se vea mejor...