unit HiAsmUnit; interface uses kol,Share,Debug,Windows; type THiAsmClass = class(TDebug) private public Time: THI_Event; procedure GoTimer(var _Data:TData; Index:word); end; implementation procedure THiAsmClass.GoTimer; var SystemTime: TSystemTime; begin GetLocalTime(SystemTime); dtInteger(_Data,SystemTime.wHour); dtInteger(_Data,SystemTime.wMinute); dtInteger(_Data,SystemTime.wSecond); dtInteger(_Data,SystemTime.wMilliseconds); _hi_OnEvent(Time,_Data); end; end.