PData = ^TData;
  TData = record
    Data_type:byte;
    idata:THiInt;
    sdata:string;
    rdata:real;
    Next:PHI_Event;
    ldata:PData;
  end;

  data_null   = 0;
  data_int    = 1;
  data_str    = 2;
  data_icon   = 6;
  data_real   = 7;
  data_stream = 10;
  data_bitmap = 11;
  data_array  = 13;
  data_font   = 15;
  data_matr   = 16;
  data_jpeg   = 17;
  data_menu   = 18;
  data_object = 20;
  data_break  = 21;