在自制的组件中怎样使用TTimer?谢了！(100分)

我想制作一个自己的组件，在组件中有一个TTimer组件，如何才能触发OnTimer事件，应该如何写（意思就是在组件内部触发），谢谢了。
type
TMySquare = class(TComponent)
private
{ Private declarations }
tmr: TTimer;

private
procedure Timer Sender: TObject);


TMysquare.timer (Sender: TObject);
begin
end

TMysquare.create
begin
tmr:=TTimer.create(...);
tmr.ontimer:=timer;
....
end;

未作过测试

放一个Timer控件在一个form上, 然后双击Timer控件, 编写一些OnTimer事件
的代码, 然后依葫芦画瓢, 把有关Timer的东西全搬到你的控件中.

然后在你的控件的constructor函数中添加:

Timer1:=Ttimer1.create(self);
Timer1.enabled:=false;
Timer1.interval:=100; //as you need
Timer1.Ontimer:=function_OnTimer; //定义的函数名

就可以了

下面是我的一个运行后监视系统运行特定程序的一个无窗体的完整源程序。
使用api函数来设置timer，而且能在运行时响应消息。
不知对你是否有用？

program sng;

uses
Windows,Messages,SysUtils,Forms,Registry;

var
quit_time:SYSTEMTIME;

function RegisterServiceProcess(dwProcessID,dwType:Integer):Integer;stdcall;external 'KERNEL32.DLL';

procedure ontimer;
var
hwndapplication1,hwndapplication2,hwndapplication3:HWND;
begin
hwndapplication1:=findwindow(nil,'Age of Empires Expansion');
hwndapplication2:=findwindow(nil,'RaidenII');
hwndapplication3:=findwindow(nil,'Age of Empires');
if hwndapplication1 <> 0 then
begin
SendMessage(hwndapplication1, WM_CLOSE, 0, 0);
end;
if hwndapplication3 <> 0 then
begin
SendMessage(hwndapplication3, WM_CLOSE, 0, 0);
end;
if hwndapplication2 <> 0 then
begin
SendMessage(hwndapplication2, WM_CLOSE, 0, 0);
PostMessage(HWND_BROADCAST, WM_KEYDOWN,13, 0);
end;
end;

function timerProc(hwnd:HWND;uMsg:UINT;idEvent:UINT;dwTimeWORD)WORD;

procedure init_app;
begin
//设置计时器
TimerProc(application.handle,wm_timer,1,gettickcount);
settimer(application.handle,1,10000,@ontimer);
//使程序不出现在windows关闭对话框中
RegisterServiceProcess(GetCurrentProcessID,1);
end;


procedure Close_app;
var
reg_game:Tregistry;
begin
//至注册表内添加启动选项
reg_game:=Tregistry.Create ;
reg_game.RootKey:=HKEY_LOCAL_MACHINE;
try
reg_game.OpenKey('SOFTWARE/Microsoft/Windows/CurrentVersion/Run',True);
if reg_game.KeyExists('游戏至尊')=false then
//extractfiledir(application)----可获得程序启动路径
//extractfilepath()---类似
//extractfilename()----可获得程序的文件名
reg_game.WriteString('游戏至尊',extractfilepath(application.exename)+ExtractFileName(application.ExeName ));
except
application.MessageBox('I cannot registry myself','error',4);
End;
reg_game.CloseKey ;
reg_game.Free;
//使程序出现在windows关闭对话框中
RegisterServiceProcess(GetCurrentProcessID,0);
//释放计时器
killtimer(application.handle,1);
end;

//主程序
begin
init_app;
close_app;
getsystemtime(quit_time);
while quit_time.wYear =1999 do
begin
getsystemtime(quit_time);
ontimer;
end;
close_app;
end;
end.

多人接受答案了。