Type
Tmythread=class(Tthread)
public
pd:Pdata;
End;

创建后：
td:=Tmythread.create(暂停);
td.pd:=pw;
td.resume{是这个词吧，即继续运行};