[keyboy]

Yo propongo esta:

Código Delphi [-]
function DameElTipo(Dato: String): String;
var
  Espacio: Integer;

begin
  Espacio := Pos(' ', ReverseString(Dato));
  Result := Copy(Dato, Length(Dato) - Espacio + 2, Length(Dato));
end;

Bye