关于多线程的一个简单问题！

Question

procedure TMainForm.Timer1Timer(Sender: TObject);
begin
 SHowMessage('OK');
end;这是一个简单的用时钟控制一个过程反复执行的方法，那么我想用线程。请朋友就以上面的例子写一下好吗？

Answer 1

用两个线程,前几天我刚写过一模一样的测试程序,不过没有保存过
如果一个线程就会挂起.
主线程部分代码
while true do
begin 
Tmytread2.create(false);
sleep(1000);
end;子线程tmytread2部分代码
showmessage(datetimetostr(now));
如果不把showmessage窗口关闭,那么系统的线程数量每1秒增加一个.