diff --git a/packages/fcl-process/src/dbugintf.pp b/packages/fcl-process/src/dbugintf.pp
index d15cf7b0ed..45e8d71848 100644
--- a/packages/fcl-process/src/dbugintf.pp
+++ b/packages/fcl-process/src/dbugintf.pp
@@ -86,7 +86,7 @@ begin
   if DebugDisabled then exit;
   try
     If (DebugClient=Nil) then
-      InitDebugClient;
+      if InitDebugClient = false then exit;
     if (Indent>0) then
       Msg.Msg:=StringOfChar(' ',Indent)+Msg.Msg;
     WriteMessage(Msg);