[ecfisa]

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.