struct RetData {
               int Count;
               int CmdCode;
               LPARAM UserData;
               LPARAM Status;
               LPSTR CmdName;
               LPSTR SendStr;
               LPSTR Whole;
               LPSTR RetItem[ 20 ];
               unsigned char OrigStat[ 6 ];
               };

type RetData = record
              Count: integer ;
              CmdCode: integer ;
              UserData: integer ;
              Status: integer ;
              CmdName: PChar ;
              SendStr: PChar ;
              Whole: PChar ;
              RetItem: array [ 1 .. 20 ] of PChar ;
              OrigStat: array [ 1 .. 6 ] of   byte	;
            end;