diff --git a/src-rdpcheck/MainUnit.pas b/src-rdpcheck/MainUnit.pas
index 3c4655f..887467b 100644
--- a/src-rdpcheck/MainUnit.pas
+++ b/src-rdpcheck/MainUnit.pas
@@ -24,7 +24,7 @@ uses
 
 type
   TFrm = class(TForm)
-    RDP: TMsRdpClient2;
+    RDP: TMsRdpClient2NotSafeForScripting;
     procedure RDPDisconnected(ASender: TObject; discReason: Integer);
     procedure FormCreate(Sender: TObject);
   private