Парсинг URL'а средствами Indy

Очень просто

uses IdURI;

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  URI: TIdURI;
begin
  URI := TIdURI.Create('http://login:password@somehost.somedomain.com:8080/some_path/something_else.html?param1=val¶m2=val');
  try
    Memo1.lines.add(URI.Protocol);
    Memo1.lines.add(URI.Username);
    Memo1.lines.add(URI.Password);
    Memo1.lines.add(URI.Host);
    Memo1.lines.add(URI.Port);
    Memo1.lines.add(URI.Path);
    Memo1.lines.add(URI.Document);
    Memo1.lines.add(URI.Params);
  finally
    URI.Free;
  end;
end;