如何寫一隻執行序(thread)的程式

首先開啟File->New->Other->Thread Object。
這時候會產生Unit1(寫視窗程式用)及Unit2(寫執行序用)
Unit2的內容為下：

unit Unit2;

interface

uses
  Classes;

type
  mythread = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
  end;

implementation

{ Important: Methods and properties of objects in visual components can only be
  used in a method called using Synchronize, for example,

      Synchronize(UpdateCaption);

  and UpdateCaption could look like,

    procedure mythread.UpdateCaption;
    begin
      Form1.Caption := 'Updated in a thread';
    end; }

{ mythread }

procedure mythread.Execute;
begin
  { Place thread code here } //這裡就是加入執行序程式碼的地方了
end;

end.

其中，你注意找到procedure mythread.Execute;，應找到了吧，連我都看到了，這就是你剛才建立的執行序了，那麼接下來，我們要做的就是加入後台執行的程式碼。
如果你要調用unit1上的元件，你可以在unit2上面的uses中加入unit1就行了。記住，在unit1裡的implementation後面增加uses unit2，這樣你就可在unit1中使用執行序了。
而引用的方法很簡單，就是mythread.Create(false);。OK，這就是delphi中的執行序，呵呵。