if fr < 40 then fr := 40; 

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

Add(MainForm,2953706,21,105)
{
 Width=242
}
Add(InlineCode,1541424,154,112)
{
 WorkPoints=#6:doNull|6:doWork|
 EventPoints=#6:onWork|
 Code=#15:unit HiAsmUnit;|0:|9:interface|0:|21:uses kol,Share,Debug;|0:|4:type|28: THiAsmClass = class(TDebug)|10:   private|0:|9:   public|20:   onWork:THI_Event;|49:   Procedure doWork(var _Data:TData; Index:Word);|0:|5: end;|0:|14:implementation|30: Procedure THiAsmClass.doWork;|6: BEGIN|55: _hi_onEvent(onWork,'Индекс........' + int2str(Index));|14: With _Data do|7:  begin|56: _hi_onEvent(onWork,'Тип........' + int2str(Data_type));|52: _hi_onEvent(onWork,'Integer....' + int2str(idata));|41: _hi_onEvent(onWork,'String.....'+sdata);|53: _hi_onEvent(onWork,'Double.....'+double2str(rdata));|37: _hi_onEvent(onWork,'============' );|6:  end;|5: END;|4:end.|0:|0:|
 link(onWork,14739339:doAdd,[])
}
Add(Button,6072435,84,119)
{
 Left=10
 Top=65
 Caption="String"
 Data=String(123456.1234)
 link(onClick,2645922:doWork2,[])
}
Add(ListBox,14739339,203,112)
{
 Left=80
 Top=5
 Width=140
 Height=250
}
Add(Button,3422851,84,77)
{
 Left=10
 Top=40
 Caption="Integer"
 Data=Integer(123456)
 link(onClick,2645922:doWork1,[(130,83)])
}
Add(Button,15926169,85,161)
{
 Left=10
 Top=95
 Caption="Double"
 Data=Real(123456.12)
 link(onClick,2645922:doWork3,[(130,167)])
}
Add(HubEx,2645922,126,119)
{
 link(onEvent,1541424:doWork,[])
}

Тип =(Значение1, Значение2, ... Значение i)
где:
тип — имя перечисляемого типа данных;
Значение i — символьная константа, определяющая одно из значений, которое может принимать переменная типа Тип.

#pas
const cs = 0;
      cs1 = 1;
      cs2 = 2;
//Можно обьявить тип 
type css = (cs,cs1,cs2);
var a:css;
    b:integer;
//......
a:=cs;
// Равносильные предыдущему a:=css(0);
b:=cs1;