Fórum Sincronizar Threads #606043

type TBarra = class(TThread)
    private
      Fbarra:TProgressBar;
      FposIni:integer;
      FposFin:integer;
      FposAtual:integer;
    public
      property barra:TProgressBar read Fbarra write Fbarra;
      property posIni:integer read FposIni write FposIni;
      property posFin:integer read FposFin write FposFin;
      property posAtual:integer read FposAtual write FposAtual;
      constructor Create;
      destructor Destroy;
      procedure Execute;override;


procedure TBarra.Execute;
begin
  try
    inherited;
    Fbarra.Min := FposIni;
    Fbarra.Position := FposIni;
    Fbarra.max := FposFin;
    while (Fbarra.Position < FposFin)and not(Terminated) do
    begin
      Fbarra.Position := Fbarra.Position + 1;
    end;
  finally
    self.Terminate;
    self.free;
  end;
end;