Delphi: проверить электронная почта без регулярных выражений

Поскольку в Delphi нет встроенной библиотеки регулярных выражений, вы видели хорошую функцию для проверки адресов электронной почты хотя бы до некоторой степени при использовании только Delphi RTL / VCL?

Я не хочу связывать дополнительные * .dll с моим продуктом, интегрируя поддержку регулярных выражений, и мне нужна также совместимость с Delphi 7. Встраивание библиотеки регулярных выражений в exe увеличивает ее размер, и я сомневаюсь, что стоит добавить следующие 100 тыс., Потому что вам просто нужна функция проверки электронной почты на 10-50 строк.