3 interface

     4 type TIPCMessage = record

     5                    str: shortstring;

     6                    len: Longword;

     7                    buf: Pointer

     8                end;

     9     TIPCCallback = procedure (p: pointer; len: byte; msg: PChar);