TURI Probleme, hat jemand Rat?

[KodeZwerg]

Ich habe eine Lösung gefunden um mein Ziel zu erreichen, ist das so korrekt oder gibt es Bedenken?

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);
    tmp := ExtractFilepath(xURI.Path.Replace('/','\'));
    tmp := tmp.Replace('\','/');
    Memo2.Lines.Add('Sublevel: '+tmp);
    tmp := ExtractFilename(xURI.Path.Replace('/','\'));
    tmp := tmp.Replace('\','/');
    Memo2.Lines.Add('Filename: '+tmp);
    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;