GetServerInfo Example

procedure TForm1.btnConnectClick(Sender: TObject);
var
  strServer, strPort: string;
begin
  if GetServerInfo(strServer, strPort)<> mrCancel then begin {getsvrinfo}
    RPCBroker1.Server := strServer;
    RPCBroker1.ListenerPort := StrToInt(strPort);
    RPCBroker1.Connected := True;
  end; {getsvrinfo}
end;