hola casimiro..... lo resolví de esta manera.....
Código:
#include "System.RegularExpressions.hpp"
//en el constructor del Form1 puse esto:
MemoRegEx->Text =
"^((?>[a-zA-Z\d!#$%&''*+\\-/=?^_`{|}~]+\\x20*" "|\"((?=[\\x01-\\x7f])[^\"\\\\]|\\\\[\\x01-\\x7f])*\"\\"
"x20*)*(?<angle><))?((?!\\.)(?>\.?[a-zA-Z\d!" "#$%&''*+\\-/=?^_`{|}~]+)+|\"\"((?=[\\x01-\\x7f])"
"[^\"\\\\]|\\\\[\\x01-\\x7f])*\")@(((?!-)[a-zA-Z\\d\\" "-]+(?<!-)\\.)+[a-zA-Z]{2,}|\\[(((?(?<!\\[)\\.)"
"(25[0-5]|2[0-4]\\d|[01]?\\d?\\d)){4}|[a-zA-Z\\" "d\\-]*[a-zA-Z\\d]:((?=[\\x01-\\x7f])[^\\\\\\[\\]]|"
"\\\\[\\x01-\\x7f])+)\\])(?(angle)>)$";
// Incluí un TMemo con la cadena de comprobacion de email y un EditBox (Edit_DJ_EMAIL)
// y lo comprobe de esta manera....
if (TRegEx::IsMatch(Edit_DJ_EMAIL->Text.c_str(), MemoRegEx->Text))
{
ShowMessage("EMAIL VALID!!");
}
else
{
ShowMessage("Must enter a VALID EMAIL ADDRESS");
return;
}