如何加入多线程？(100分)

我的程序以编好了
想在里面加入多线程
怎么加？

->从TThead继承一个线程
->定义线程变量
->创建实例

假设你的procedure play;
弄成线程就是
var
ThreadIDWord;
hThread:Thandle;

begin
hThread:=CreateThread(nil,0,@Play,nil,0,ThreadID);
end;
就执行了。

delphi的方法：
delphi->File->New->最下一行第三个thread object.
thread的example:
C:/Program Files/Borland/Delphi5/Demos/Threads/

win sdk的方法:
参看win32 help createthread的帮助,主要用到下面两个函数:
hThread = CreateThread (&security_attributes, dwStackSize, ThreadProc, pParam, dwFlags, &idThread) ;
DWORD WINAPI ThreadProc (PVOID pParam) ;