diff --git a/src-rdpcheck/MainUnit.dfm b/src-rdpcheck/MainUnit.dfm
index 25339734..1a2e133f 100644
--- a/src-rdpcheck/MainUnit.dfm
+++ b/src-rdpcheck/MainUnit.dfm
@@ -17,11 +17,12 @@ object Frm: TFrm
   OnCreate = FormCreate
   PixelsPerInch = 96
   TextHeight = 13
-  object RDP: TMsRdpClient2
+  object RDP: TMsRdpClient2NotSafeForScripting
     Left = 0
     Top = 0
     Width = 640
     Height = 480
+    Align = alClient
     TabOrder = 0
     OnDisconnected = RDPDisconnected
     ControlData = {0003000008000200000000000B0000000B000000}
diff --git a/src-rdpcheck/MainUnit.pas b/src-rdpcheck/MainUnit.pas
index 3c4655f5..887467b8 100644
--- a/src-rdpcheck/MainUnit.pas
+++ b/src-rdpcheck/MainUnit.pas
@@ -24,7 +24,7 @@ interface
 
 type
   TFrm = class(TForm)
-    RDP: TMsRdpClient2;
+    RDP: TMsRdpClient2NotSafeForScripting;
     procedure RDPDisconnected(ASender: TObject; discReason: Integer);
     procedure FormCreate(Sender: TObject);
   private