最简单的多线程

//调用线程
procedure TForm1.Button3Click(Sender: TObject);
begin
　TOpenTest.Create(ProgressBar1);
　TOpenTest.Create(ProgressBar2);
end;

unit FThread;

interface

uses
　Classes,ComCtrls;

type
　TOpenTest = class(TThread)
　private
　　FPro:TProgressBar;
　　{ Private declarations }
　protected
　　procedure Execute; override;
　　Procedure Start(A:TProgressBar);
　Public
　　Constructor Create(Pro:TProgressBar);
　end;

implementation

Constructor TOpenTest.Create(Pro:TProgressBar);
Begin
　FPro:=Pro;
　Inherited Create(False);
End;

Procedure TOpenTest.Start(A:TProgressBar);
var
　I:Integer;
begin
　For I:=0 To A.Max Do
　　A.Position:=I;
end;

procedure TOpenTest.Execute;
begin
　Strat(FPro);
end;

end.