validar un dbedit

[moyo18]

viendo como iria quedando seria asi, pero sigue igual, los datos ingresados en el DBEDIT siempre se guardan llevando o no llevando la arroba o el punto, y ahora pasa algo, los datos q entro en los inputmask q son los q llevaran los otros DBEdit, con ese codigo q se lo pongo antes ya no se guardan ni nada, queda los values q esta arriba como

userid = 9999 y asi con los demas

Código Delphi [-]
procedure TForm1.Button3Click(Sender: TObject);
var
 M,N :Integer;
 SubCadena :String;
begin
  M:=Pos(DBEdit9.Text, '@');
  if (M > 1) then
  begin
    SubCadena:=Copy(DBEdit9.Text,M,Length(Edit1.Text));
    N:=Pos(SubCadena, '.') ;
    if ((N>2) and (Length(SubCadena)<>N) ) then
  begin
   ADOTable1.Edit;
    DBEdit2.text := Maskedit1.Text ;
    DBEdit6.text := Maskedit2.Text ;
    DBEdit8.text := Maskedit3.Text ;
    DBEdit10.text := Maskedit4.Text ;
    ADOTable1UserID.AsString := DBEdit2.text;
    ADOTable1LastName.AsString := DBEdit3.text;
    ADOTable1Name.AsString := DBEdit4.text;
    ADOTable1Address.AsString := DBEdit5.text;
    ADOTable1PostalCode.AsString := DBEdit6.text;
    ADOTable1City.AsString := DBEdit7.text;
    ADOTable1Phone.AsString := DBEdit8.text;
    ADOTable1Email.AsString := DBEdit9.text;
    ADOTable1Birthday.AsString := DBEdit10.text;
   ADOTable1.Post;
  end;
 end;
end;