It's hard to believe, but there is no standard function in Delphi to verify the email address. Also there is no native RegExp support. So I have to create own routine for email verification. It is not fully RFC compatible (there is no support for firstname.lastname@example.org and John Dow <email@example.com>) but is good enough for 99% of end-user programs.
Click on code, press Ctrl+A to select all, Ctrl+C to copy the text.
P.S. Does anybody use Delphi in 2011? :)