TProgressBar

Code:

procedure TForm1.FormCreate(Sender: TObject);

begin

with ProgressBar1 do

begin

   Parent := StatusBar1;

   Position := 100;

   Top := 2;

   Left := 0;

   Height := StatusBar1.Height - Top;

   Width := StatusBar1.Panels[0].Width - Left;

end;

end;

Code:

procedure TMainForm.stStatusBarDrawPanel(StatusBar: TStatusBar;

Panel: TStatusPanel; const Rect: TRect);

begin

if Panel.index = pnProgress then

begin

   pgProgress.BoundsRect := Rect;

   pgProgress.PaintTo(stStatusBar.Canvas.Handle, Rect.Left, Rect.Top);

end;

end;