关于多线程的一个简单问题！
procedure TMainForm.Timer1Timer(Sender: TObject);
begin
SHowMessage( 'OK ');
end;

这是一个简单的用时钟控制一个过程反复执行的方法，那么我想用线程。请朋友就以上面的例子写一下好吗？

[解决办法]
用两个线程,前几天我刚写过一模一样的测试程序,不过没有保存过
如果一个线程就会挂起.
主线程部分代码
while true do
begin
Tmytread2.create(false);
sleep(1000);
end;

子线程tmytread2部分代码
showmessage(datetimetostr(now));


如果不把showmessage窗口关闭,那么系统的线程数量每1秒增加一个.