delphi XE 學習筆記二：TThread.CreateAnonymousThread

TThread.CreateAnonymousThread(方法名或者匿名方法).Start();

procedure TForm1.Button1Click(Sender:TOBject);

begin

  TThread.CreateAnonymousThread(

    procedure()

    begin

      //do somthing

    end

  ).start();

end;