terface
uses
  Windows, Messages, SysUtils, Classes,
Graphics, Controls, Forms, Dialogs,
  StdCtrls;
type
  TForm1 = class(TForm)
    UsedThread: TButton;
    NoUsedThread: TButton;
    procedure UsedThreadClick(Sender: TObject);
    procedure NoUsedThreadClick(Sender: TObject);
var
  Form1: TForm1;
implementation
{$R *.DFM}
//这是线程函数，
它可以放在下面程序的任何地方
function MyThreadFunc(P:pointer):Longint;stdcall;
var
   i:integer;
   DC:HDC;
   S:string;
begin
     DC:=GetDC(Form1.Handle);
     for i:=0 to 100000 do begin
         S:=Inttostr(i);
         Textout(DC,10,10,Pchar(S),length(S));
     end;
     ReleaseDC(Form1.Handle,DC);
end;
procedure TForm1.UsedThreadClick(Sender: TObject);
var
   hThread:Thandle;//定义一个句柄
   ThreadID:DWord;
begin
//创建线程，同时线程函数被调用
hthread:=CreateThread(nil,0,@MyThreadfunc,nil,0,ThreadID);
     if hThread=0 then
messagebox(Handle,''Didn’t Create a Thread'',nil,MB_OK);
end;
procedure TForm1.NoUsedThreadClick(Sender: TObject);
begin
     MyThreadfunc(nil);
//没有创建线程时，直接调用线程函数
end;
end.

---- 上 面 这 个 程 序 介 绍 了 我 们 在 使
用 线 程 及 未 使 用 线 程 二 种 情 况 下， 运 行 该
程 序 的 反 应。 当 点UsedThread 按 钮 时， 则 建 立 一 个 线 程， 这
时 我 们 可 以 在 程 序
进 行 计 算 的 同 时， 改 变 窗 体 的 尺 寸 及 移 动 它。 当 按 下NoUsedThread
按 钮 时， 不
建 立 线 程， 我 们 会 发 现 在 程 序 没 有 计 算 完 之 前 根 本 不
能 做 其 它 任 何 事 情 ！
此 程 序 在 基 于Windows 95 的Delphi 3 中 运 行 通 过。