unit FESPERA;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls, ExtCtrls;

type
  TESPERA = class(TForm)
    ProgressBar1: TProgressBar;
    Label1: TLabel;
  private
    { Private declarations }
  public
    { Public declarations }
    PROCEDURE INCREMENTARBARRA(FINAL:BOOLEAN);
    PROCEDURE LONGITUD(AUX:INTEGER);
  end;

var
  ESPERA: TESPERA;

implementation
 PROCEDURE TESPERA.INCREMENTARBARRA(FINAL:BOOLEAN);
 BEGIN
   PROGRESSBAR1.STEPIT;
   IF FINAL THEN
       CLOSE;
 END;
 PROCEDURE TESPERA.LONGITUD(AUX:INTEGER);
 VAR A:VARIANT;
 BEGIN
   PROGRESSBAR1.MIN := 0;
   PROGRESSBAR1.MAX := AUX;
 END;
{$R *.dfm}

end.