怎样在控制台中加Timer控件，并且写timer的ontimer事件程序(100分)

小弟写一个控制台程序(没有用窗体单元文件，但是用api在程序中建立了一个隐藏的窗体)。
在建立一个timer控件中遇到问题。我的目的是要写一个timer控件然后再在timer的ontime事件中
写一段程序,代码如下
procedure timeEvent(sender:Tobject);
begin
...
end;

procedure other();
var
fTimer: TTimer;
begin
......
fTimer:= TTimer.Create(Nil);
fTimer.OnTime:= timeEvent;
try
.....
finally
gTimer.Free;
end;
......
end.

但是系统会提示 fTimer.OnTime:= timeEvent;
这个语句有错，方法指针与一般过程类型不配匹(Error(35): Incompatible types: 'method pointer and regular procedure')
请哪位大虾指教。

是啊，timeevent应该是某个对象的方法，而不是独立函数。

但是我怎么在ontimer事件中写代码呢。我以前写过类似的，是在单元文件中写的，
在写timeEvent前在 procedure中加了timerEvent的声明。但是这是控制台程序没有proedure声明呀

或者自己继承OnTimer事件，在做一个，否则不能独立函数

多人接受答案了。