Delphi异步编程：匿名线程与匿名方法

  TAnOnymousThread= class(TThread)
  private
    FProc: TProc;
  protected
    procedure Execute; override;
  public
    constructor Create(const AProc: TProc);
  end;

{ TAnonymousThread }

constructor TAnonymousThread.Create(const AProc: TProc);
begin
  inherited Create(True);
  FreeOnTerminate := True;
  FProc := AProc;
end;

procedure TAnonymousThread.Execute;
begin
  FProc();
end;

    // CreateAnonymousThread will create an instance of an internally derived TThread that simply will call the
    // anonymous method of type TProc. This thread is created as suspended, so you should call the Start method
    // to make the thread run. The thread is also marked as FreeOnTerminate, so you should not touch the returned
    // instance after calling Start as it could have run and is then freed before another external calls or
    // operations on the instance are attempted.
    class function CreateAnonymousThread(const ThreadProc: TProc): TThread; static;

class function TThread.CreateAnonymousThread(const ThreadProc: TProc): TThread;
begin
  Result := TAnonymousThread.Create(ThreadProc);
end;

type
  TFun = reference to function(const num: Integer): Integer;

// Generic Anonymous method declarations
type
  TProc = reference to procedure;
  TProc = reference to procedure (Arg1: T);
  TProc = reference to procedure (Arg1: T1; Arg2: T2);
  TProc = reference to procedure (Arg1: T1; Arg2: T2; Arg3: T3);
  TProc = reference to procedure (Arg1: T1; Arg2: T2; Arg3: T3; Arg4: T4);

  TFunc = reference to function: TResult;
  TFunc = reference to function (Arg1: T): TResult;
  TFunc = reference to function (Arg1: T1; Arg2: T2): TResult;
  TFunc = reference to function (Arg1: T1; Arg2: T2; Arg3: T3): TResult;
  TFunc = reference to function (Arg1: T1; Arg2: T2; Arg3: T3; Arg4: T4): TResult;

  TPredicate = reference to function (Arg1: T): Boolean;

procedure TfrmMain.FormCreate(Sender: TObject);
var
  f1: TFun;
  f2: TFuncstring>;
begin
  f1 := function (const num: Integer): Integer
  begin
    Result := num * num;
  end;
  OutputDebugString(PChar('f1(9) = ' + IntToStr(f1(9))));  //Debug output: f1(9) = 81

  f2 := function (num: Integer): string
  begin
    Result := IntToStr(num * num);
  end;
  OutputDebugString(PChar('f2(9) = ' + f2(9)));    //Debug output: f2(9) = 81
end;

procedure TfrmMain.btnStartClick(Sender: TObject);
begin
  Edit1.Text := 'start...';
  TThread.CreateAnonymousThread(
    procedure
    var
      i: Integer;
    begin
      Sleep(3000);
      for i := 0 to 99999 do
        TThread.Synchronize(nil,
          procedure
          begin
            Edit1.Text := IntToStr(i);
          end
        );
      Edit1.Text := 'end.';  //此处亦要同步，懒省事没整Synchornize
    end
  ).Start;
end;