diff --git a/src/ce_dcd.pas b/src/ce_dcd.pas
index f4866609..b248f215 100644
--- a/src/ce_dcd.pas
+++ b/src/ce_dcd.pas
@@ -40,13 +40,15 @@ procedure getHint(const aFilename: string; aPosition: Integer; const list: TStri
 procedure getSymbolLoc(var aFilename: string; var aPosition: Integer);
 
 var
-  DCD_server: TProcess = nil;
-  DCD_client: TProcess = nil;
-  lines: TStringList;
   dcdOn: boolean;
 
 implementation
 
+var
+  DCD_server: TProcess = nil;
+  DCD_client: TProcess = nil;
+  lines: TStringList;
+
 procedure lazyServerStart;
 begin
   if not DCD_server.Running then