validar un dbedit

[moyo18]

bueno a mi no me trabaja el codigo asi como lo tiene el d la arroba, siempre me guarda las cosas y no me tira el mensaje q esta malo porq no tiene ni arroba ni nada q paresca un email.

arreglando eso me hice con un comboxbox y pues ingeniandomelas un poquito saque un codigo

Código Delphi [-]
var
pri : string ; 
procedure TForm1.ComboBox2Change(Sender: TObject);
begin

  case combobox2.ItemIndex of

   0 :  begin
          pri := DBedit9.Text + '@hotmail.com' ;
         end;
   1 :  begin
          pri := DBedit9.Text + '@msn.com' ;
        end;
   2 :  begin
          pri := DBedit9.Text + '@yahoo.com' ;
        end;
   3 :  begin
          pri := DBedit9.Text + '@mts.net' ;
        end;
   4 :  begin
          pri := DBedit9.Text + '@shaw.ca' ;
        end;
  end;
end;

pero ojala se pueda hacer con el metodo ese d si no encuentra la arroba o el punto no lo permita.

y tambien sigo con lo del nuevo usuario, como hacer q queden en blanco los edits sin q se ponga los values q se les dan arriba, ya q se clickeo dos veces el nuevo usuario no me permite aregar nada y me da un error d un solo ya q se han insertado los otros valores autoamticamente.