unit SimpleThreadUnit;

interface

uses
  Classes, SysUtils;

type
  TSimpleThread = class(TThread)
  private
    FProgress: Integer;
    procedure UpdateProgress;
  protected
    procedure Execute; override;
  public
    constructor Create;
  end;

implementation

{ TSimpleThread }

constructor TSimpleThread.Create;
begin
  inherited Create(True); // 创建后不立即执行
  FreeOnTerminate := True; // 线程完成后自动释放
  FProgress := 0;
end;

procedure TSimpleThread.Execute;
var
  i: Integer;
begin
  for i := 1 to 100 do
  begin
    if Terminated then Exit; // 检查是否被要求终止
    
    Sleep(50); // 模拟耗时操作
    FProgress := i;
    
    // 更新UI必须通过Synchronize或Queue
    Synchronize(UpdateProgress);
  end;
end;

procedure TSimpleThread.UpdateProgress;
begin
  // 这里可以更新UI控件
  // 例如: Form1.ProgressBar1.Position := FProgress;
  WriteLn('Progress: ' + IntToStr(FProgress) + '%');
end;

end.

procedure TForm1.Button1Click(Sender: TObject);
var
  MyThread: TSimpleThread;
begin
  MyThread := TSimpleThread.Create;
  MyThread.Start; // 启动线程
end;