diff --git a/source/connections.pas b/source/connections.pas
index af1f9191..e2be5732 100644
--- a/source/connections.pas
+++ b/source/connections.pas
@@ -180,7 +180,6 @@ end;
 procedure Tconnform.btnOpenClick(Sender: TObject);
 var
   ConType: Byte;
-  CanProceed: Boolean;
   Host, Socket: String;
 begin
   // Connect to selected session