336 var text: shortstring;

   336 var text: shortstring;

   337 begin

   337 begin

   338 SendIPC('b' + s);

   338 SendIPC('b' + s);

   339 

   339 

   340 text:= copy(s, 2, Length(s)-1);

   340 text:= copy(s, 2, Length(s)-1);

   342 

   341 

   343 AddChatString(text)

   342 AddChatString(text)

   344 end;

   343 end;

   345 

   344 

   346 procedure chTimer(var s: shortstring);

   345 procedure chTimer(var s: shortstring);