一个简单的多线程

头部

type
     TMyThread = class(TThread)
     protected
          procedure Execute; override;
 end;

 

 

procedure TMyThread.Execute;

begin
  CoInitialize(nil); //如果不加这句，会提示未调用CoInitialize

  //中间调用控件的话，控件前要加上窗口名称，不然订不了来，如

form1.adoconnection

form1.adoquery.close;

    CoUninitialize;
end;

 

//执行多线程

procedure TForm1.Button1Click(Sender: TObject);

begin
    //TMyThread.Create(false); 或者下面这句
    with TMyThread.Create(True) do Resume;
end;