unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, StdCtrls;    type
  TForm1 = class(TForm)
    StatusBar1: TStatusBar;
    Button1: TButton;
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    fProgressBar: TProgressBar;
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
var
  ProGressBarStyle: longint;
begin
  StatusBar1.Panels.AddItem(nil, 0);
  StatusBar1.Panels.AddItem(nil, 1);
  StatusBar1.Panels.AddItem(nil, 2);
  StatusBar1.Panels[1].Width := 250;      fProgressBar := TProgressBar.Create(self);
  fProgressBar.parent := StatusBar1;
  fProgressBar.Left := StatusBar1.Panels[0].Width   4;
  fProgressBar.Top := 4;
  fProgressBar.Height := 13;
  fProgressBar.Width := StatusBar1.Panels.Items[1].Width - 5;
  fProgressBar.Visible := False;
  ProGressBarStyle := Getwindowlong(fProgressBar.Handle, GWL_EXSTYLE);
  ProGressBarStyle := ProGressBarStyle - WS_EX_STATICEDGE;
  SetwindowLong(fProgressBar.Handle, GWL_EXSTYLE, ProGressBarStyle);
end;    procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  fProgressBar.Visible := True;
  fProgressBar.Max := 10000;
  fProgressBar.Position := 0;
  for I := 1 to 10000 do
    fProgressBar.Position := I;
  ShowMessage('OK');
end;    end.