Hola JXJ.
Código Delphi
[-]
function ExtraerDominio(Email: string): string;
var
i: Integer;
begin
Email:= Copy(Email, Pos('@', Email) + 1, Length(Email));
i:= 1;
while Email[i] <> '.' do
begin
if Email[i] <> '.' then
Result:= Result + Email[i];
Inc(i);
end;
end;
La función devuelve el dominio, no hice ningún tipo de validación del parámetro...
Saludos.