1:
2:
3:
4:

FormProgressBar.OnClose(ParameterWeißIchJetztNichtAusWendig);
begin
TimerFortschrittsHinweis.Enabled:=False;
end;					

1:
2:
3:
4:
5:
6:
7:

        ....
          SQL.Clear;
          SQLText := 'UPDATE Auftragkopf SET STANDAUFTR8=''0''  WHERE STANDAUFTR8 IS NULL';
          SQL.Add(SQLText);
          ExecSQL;
          ProgressBarAktualisieren;
          ....					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:

  

procedure TMainForm.ProgressBarAktualisieren;
var
  ProgressBarWert: Integer;
  //ImportSekunden, ImportSekunden_X: Extended;
  ZeitDatenimport_X: TDateTime;
  //StundenDatenimport, MinutenDatenimport, SekundenDatenimport, MilliSekundenDatenimport: Word;
begin

  //Die Variable ImportZeit wurde aus der Registry eingelesen - ist einfach die Dauer vom letzten Datenimport

  ZeitDatenimport_X := Now - ZeitDatenimport;    //Seit ZeitDatenimport vergangene Zeit ...
    ProgressBarWert := trunc(ZeitDatenimport_X / StrToDateTime('00:' + ImportZeit) * 100);
  if ProgressBarWert > 0 then
    Dialog_StatusInformation.ProgressBar.Position := ProgressBarWert
  else if ProgressBarWert >= 100 then begin
    Dialog_StatusInformation.ProgressBar.Position := 100;
  end;

  Dialog_StatusInformation.ProgressBar.Refresh;

end;					

1:

  Dialog_StatusInformation.Close;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:

unit StatusInformation;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
  Buttons, ExtCtrls, ComCtrls, jpeg, Dialogs;

type
  TDialog_StatusInformation = class(TForm)
    Image1: TImage;
    ProgressBar: TProgressBar;
    Label_Information: TLabel;

  private
    { Private declarations }
  public
    { Public declarations }
    t: Integer;
  end;

var
  Dialog_StatusInformation: TDialog_StatusInformation;

implementation

{$R *.DFM}
end.					

1:

Dialog_StatusInformation.Show;