function ReadInteger(var Data:TData; PointData:THI_Event; Def:THiInt=0):THiInt;
что-нибудь такое:
function ReadInteger(var Data:TData; Def:THiInt=0):THiInt;
с соответствующим добавлением (копированием) этой функции. перегрузка ведь работает в таких случаях?