TURI Probleme, hat jemand Rat?

[KodeZwerg]

Hallo miteinander!
Ich teste mich gerade an System.Net.URLClient.TURI ran und bekomme drei Sachen nicht hin:
0. Wie komme ich an den Sublevel-String ran? (siehe unten die Beispiele um zu Wissen was ich damit meine)
1. Wie ich aus einer URL einen Dateinamen bilde mit den TURI records?
2. Warum wird mir ein falscher Port angezeigt?

Hier der TURI Code Abschnitt:

Delphi-Quellcode:

  try
    Memo2.Lines.BeginUpdate;
    Memo2.Clear;
    try
      xURI := TURI.Create( Edit1.Text );
    except
      on e: System.SysUtils.Exception do
       Memo2.Lines.Add('Error Occured @ '+Edit1.Text+' - '+e.Message);
    end;
  finally
    Memo2.Lines.Add('OriginalURL: '+xURI.ToString);
    Memo2.Lines.Add('Protocol: '+xURI.Scheme );
    Memo2.Lines.Add('Username: '+xURI.Username);
    Memo2.Lines.Add('Password: '+xURI.Password);
    Memo2.Lines.Add('Domain: '+xURI.Host );
    Memo2.Lines.Add('Sublevel: '+xURI.Path );
    Memo2.Lines.Add('Filename: '+xURI.PathRelativeToAbs(xURI.Path, xURI)); // alles falsch
    Memo2.Lines.Add('Parameter: '+xURI.Query);
    Memo2.Lines.Add('Port: '+IntToStr(xURI.Port));
    Memo2.Lines.Add('');
    Memo2.Lines.Add('Results from TURI');
    Memo2.Lines.EndUpdate;
  end;

und hier das Ergebnis mit einer Test-URL

Code:

OriginalURL: https://user:[e-mail]/old/new/newreply.php?do=postreply&t=196264:8080
Protocol: https
Username: user
Password: pass
Domain: www.delphipraxis.net
Sublevel: /old/new/newreply.php
Filename: https://www.delphipraxis.net/old/new/newreply.php
Parameter: do=postreply&t=196264:8080
Port: 443

Sublevel, Filename und Port stimmen noch nicht.
Hier das Ergebnis mit meinem Record:

Code:

OriginalURL: https://user:[e-mail]/old/new/newreply.php?do=postreply&t=196264:8080
Protocol: https
Username: user
Password: pass
Domain: www.delphipraxis.net
Sublevel: /old/new/
Filename: newreply.php
Parameter: ?do=postreply&t=196264
Port: 8080

Im Anhang ist das komplette Test-Projekt, falls da mal jemand reinschnuppern mag, nur zu!

edit
port bug fixed, danke Olli73 fürs fixe entdecken des Fehlers!
www adresse abgeändert gegen böses.