MsRDPClient не работает

[Flameseeker]

Суть вопроса такова, хотел написать клиент для работы с RDP, чуть почитал, погуглил, в итоге поставил ActiveX компоненты MsRDPClient, все как положено. Вот собственно весь код

type
  TForm1 = class(TForm)
    Button1: TButton;
    MsRdpClient5NotSafeForScripting1: TMsRdpClient5NotSafeForScripting;
    procedure Button1Click(Sender: TObject);
    procedure MsRdpClient5NotSafeForScripting1Disconnected(ASender: TObject; discReason: Integer);
    procedure MsRdpClient5NotSafeForScripting1Connected(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  MsRdpClient5NotSafeForScripting1.Server := '...';
    MsRdpClient5NotSafeForScripting1.AdvancedSettings6.RDPPort:=3389;
  MsRdpClient5NotSafeForScripting1.ControlInterface.UserName := '...';
  MsRdpClient5NotSafeForScripting1.AdvancedSettings6.Set_ClearTextPassword('...');
  try
  MsRdpClient5NotSafeForScripting1.Connect;
  except
    MessageBox(handle,pchar('Ошибка регистрации ...'),pchar('Внимание !!'),MB_ICONERROR or MB_OK);
    Application.Terminate;
    Exit;
  end;
end;

procedure TForm1.MsRdpClient5NotSafeForScripting1Connected(Sender: TObject);
begin
showmessage('good');
end;

procedure TForm1.MsRdpClient5NotSafeForScripting1Disconnected(ASender: TObject;
  discReason: Integer);
begin
 showmessage('bad');
end;

В итоге просто вылезает bad, уже несколько дней мучаюсь не могу понять в чем проблема, пароль логин, адресс сервера, все верно указываю. Думается что с библиотекой что-то не так, может по новее надо Delphi 10.3