CreateAnonymousThread

建立匿名线程 CreateAnonymousThread 居然还有这个函数。

转自：http://www.cnblogs.com/del/archive/2011/05/18/2049913.html 

//更详尽。这些只是部分代码：

procedure MyMethod;
var
  i: Integer;
begin
  for i := 0 to 500000 do
  begin
    Form1.Canvas.Lock;
    Form1.Canvas.TextOut(10, 10, IntToStr(i));
    Form1.Canvas.Unlock;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TThread.CreateAnonymousThread(MyMethod).Start; //!!!
end;