FTimer := NewTimer(1000);
FTimer.Enabled := false;

FTimer.Free;[/code]

отлов независимого события:
FTimer.OnTimer := onTimer;[/code]

реализация этого события:
procedure OnTimer(Obj:PObj);[/code]

и наконец выдача во вне:
procedure THITimer.OnTimer;
begin
  _hi_OnEvent(_event_onTimer);
end;