Extracting the domain (host) name from an e-mail address

If you have an email as a string value and want to extract only the domain (host) name from it, like in: "delphi.guide@about.com" - domain name = "about.com", you can use the next function:

//extract doman name from an email address
function EmailDomain(const email: string):string;
var
	Pos_AT : integer;
begin
	Pos_AT := Pos('@', email) ;
	Result := Copy(email, Pos_AT + 1, Length(email) - Pos_AT)
end;