Verbliebene Zeit mit Progressbar anzeigen

[technik05]

Dieses kleine Programm wird durch eine Aktion geöffnet (FMS 32 Pro).
Der Timer1 soll nach einer gewissen Zeit Forum1 wieder schließen.
Möchte gerne die verbleibende Zeit mit ProgressBar darstellen!

ist dieses möglich ???

Delphi-Quellcode:

 TForm1 = class(TForm)
    Timer1: TTimer;
    Label1: TLabel;
    Label3: TLabel;
    ProgressBar1: TProgressBar;
    procedure Timer1Timer(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
Form1.Close;
end;

end.

[edit=sakura] Titel für Suche korrigiert. Mfg, sakura[/edit]