在Delphi中实现C#的BackgroundWorker的最佳方法是什么？

unit MainForm;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TBackgroundWorker = class(TThread)
  private
    FOnProgress: TProgressEvent;
    procedure DoProgress(Percent: Integer);
  protected
    procedure Execute; override;
  public
    constructor Create;
    property OnProgress: TProgressEvent read FOnProgress write FOnProgress;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    ProgressBar1: TProgressBar;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
    BackgroundWorker: TBackgroundWorker;
    procedure BackgroundWorkerProgress(Sender: TObject; Percent: Integer);
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TBackgroundWorker }

constructor TBackgroundWorker.Create;
begin
  inherited Create(True);
  FreeOnTerminate := True;
end;

procedure TBackgroundWorker.DoProgress(Percent: Integer);
begin
  if Assigned(FOnProgress) then
    FOnProgress(Self, Percent);
end;

procedure TBackgroundWorker.Execute;
var
  I: Integer;
begin
  for I := 1 to 100 do
  begin
    Sleep(100);
    Synchronize(procedure begin DoProgress(I); end);
  end;
end;

{ TForm1 }

procedure TForm1.BackgroundWorkerProgress(Sender: TObject;
  Percent: Integer);
begin
  ProgressBar1.Position := Percent;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  BackgroundWorker := TBackgroundWorker.Create;
  BackgroundWorker.OnProgress := BackgroundWorkerProgress;
  BackgroundWorker.Start;
end;

end.