[lmikle]

Ну и в чем проблема? Готовая функция. Вставляешь куда-нить в модуле, где собираешься ее вызывать. А далее:

Код:

procedure Buttin1Click(Sender : TObject);
begin
  If Not IsValidEmail(Edit1.Text)
    Then ShowMessage('email неправильный')
    Else // Здесь код использования
end;