* If InitDebugClient fails, do not try to write a debug-message

git-svn-id: trunk@11843 -

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);