TWBHandlerMessage

type TWBHandlerMessage = record

  wbhm_Message: TMessage;

  wbhm_type: TWBHM_type;

  wbhm_Data: record

    case Integer of

      0: (

          Open: record

            Name: PChar;

          end;

        );

      1: (

          Update: record

            Name: PChar;

            Type_: LongInt;

          end;

        );

  end;

end;