121 procedure ParseIPCCommand(s: shortstring);

   121 procedure ParseIPCCommand(s: shortstring);

   122 var loTicks: Word;

   122 var loTicks: Word;

   123     isProcessed: boolean;

   123     isProcessed: boolean;

   124 begin

   124 begin

   125 isProcessed := true;

   125 isProcessed := true;

   126 

   127 

   127 case s[1] of

   128 case s[1] of

   128      '!': begin AddFileLog('Ping? Pong!'); isPonged:= true; end;

   129      '!': begin AddFileLog('Ping? Pong!'); isPonged:= true; end;

   129      '?': SendIPC(_S'!');

   130      '?': SendIPC(_S'!');

   130      'e': ParseCommand(copy(s, 2, Length(s) - 1), true);

   131      'e': ParseCommand(copy(s, 2, Length(s) - 1), true);