[roman]

Pues, de existir, existe, en la unidad WinInet, la función InternetCrackUrl. Aunque más que ser una función de Delphi, es de la API de Windows y no es tan sencilla de usar.

Otra opción de algo ya hecho sería usar la clase TIdUri de la biblioteca Indy, si es que la tienes instalada. En ese caso simplemente harías:

Código Delphi [-]
uses IdUri;

...

var
  Uri: TIdUri;

begin
  Uri := TIdUri.Create('http://dev-apptest:8099/bin');

  try
    ShowMessage(Uri.Host);
  finally
    Uri.Free;
  end;
end;

// Saludos