235 end;

   235 end;

   236 

   236 

   237 procedure SendIPCTimeInc;

   237 procedure SendIPCTimeInc;

   238 const timeinc: shortstring = '#';

   238 const timeinc: shortstring = '#';

   239 begin

   239 begin

   240 SendIPCRaw(@timeinc, 2)

   241 SendIPCRaw(@timeinc, 2)

   241 end;

   242 end;

   242 

   243 

   243 procedure IPCWaitPongEvent;

   244 procedure IPCWaitPongEvent;

   244 begin

   245 begin