Thread

unit TrdBarra;

interface

uses
Classes, ComCtrls;

type
  TMeuThread = class(TThread)
    private
      BarraProgresso: TProgressBar;
    protected
      procedure Execute; override;
      procedure Incrementa;
    public
      constructor Criar(Barra: TProgressBar);
    end;

implementation

constructor TMeuThread.Criar(Barra: TProgressBar);
begin
  Create(False);
  BarraProgresso := Barra;
  FreeOnTerminate := True;
end;

procedure TMeuThread.Execute;
begin
  while BarraProgresso.Position < BarraProgresso.Max do
  Synchronize(Incrementa);
end;

procedure TMeuThread.Incrementa;
begin
  BarraProgresso.StepBy(1);
end;

end.