如何在线程中执行另一过程?比如说：创建一个线程，它等于另一个procedure的代码? ( 积分: 100 )

如何在线程中执行另一过程?比如说：创建一个线程，它等于另一个procedure的代码?

急呀，今天我要完成.

给你个参考:
TsendlostThread = class (TThread)
private
Fdsnmp: Tdsnmp;
protected
procedure Execute;
override;
published
constructor create;
destructor Destroy;
override;
property dsnmp:Tdsnmp read Fdsnmp write Fdsnmp;
end;

Tdsnmp = class(TDataModule)
private
{ Private declarations }
public
{ Public declarations }
FsendlostThread: TsendlostThread;

end;

这个好象是直接等于另一个线程,我要的是这样:
1:前面我定义好一个过程，用于数据采集;
2:我定义一个Function（），该Function中对参数赋值后，执行一个线程，该线程就是执行前面procedure的代码, 得到我要的信息.

最好是给些示例代码,解决就结贴

TsendlostThread = class (TThread)
private
Fdsnmp: Tdsnmp;
protected
procedure Execute;
override;
published
constructor create;
destructor Destroy;
override;
property dsnmp:Tdsnmp read Fdsnmp write Fdsnmp;
end;

Tdsnmp = class(TDataModule)
private
{ Private declarations }
public
{ Public declarations }
FsendlostThread: TsendlostThread;
procedure recData;
end;

在线程的执行过程中直接调用这个过程,如:Fdsnmp.recData