procedure TrealcaculateThread.Execute;
begin
realcaculateForm.Timer1.Enabled:=false;
//计算 三个实例进行计算
realcaculateform.Timer1.Enabled:=true;
end;
end.
realcaculateForm :
rocedure TrealcaculateForm.Timer1Timer(Sender: TObject);
var
ii:integer;
mm:array[12..20] of real;
realthread :TrealcaculateThread;
begin
//赋值 fuzhiForm尚有一个定时器为realcaculate提供数据
////////
realthread:=TrealcaculateThread.Create(false);
///////////////
更详细的请看我的上一个问题。