unit Abertura;

interface

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

type
  TF_Abertura = class(TForm)
    Image1: TImage;
    Label1: TLabel;
    Panel2: TPanel;
    ProgressBar1: TProgressBar;
    procedure FormActivate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  F_Abertura: TF_Abertura;

implementation

{$R *.dfm}

procedure TF_Abertura.FormActivate(Sender: TObject);
var
i:integer;
begin
  ProgressBar1.Min:= 0;
  ProgressBar1.Position:= 0;
  ProgressBar1.Max:= 100000;
  for I:= 0 to ProgressBar1.Max do
    ProgressBar1.Position:= ProgressBar1.Position + 1;
end;



end.
