var

ProgressBarStyle: LongInt;

begin

{create a run progress bar in the status bar}

ProgressBar1 := TProgressBar.Create(StatusBar1);

ProgressBar1.Parent := StatusBar1;

{remove progress bar border}

ProgressBarStyle := GetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE);

ProgressBarStyle := ProgressBarStyle - WS_EX_STATICEDGE;

SetWindowLong(ProgressBar1.Handle, GWL_EXSTYLE, ProgressBarStyle);

{set progress bar position and size - put in Panel[2]}

ProgressBar1.Left := StatusBar1.Panels.Items[0].Width +

StatusBar1.Panels.Items[1].Width + 4;

ProgressBar1.Top := 4;

ProgressBar1.Height := StatusBar1.Height - 6;

ProgressBar1.Width := StatusBar1.Panels.Items[2].Width - 6;

{set range and initial state}

ProgressBar1.Min := 0;

ProgressBar1.Max := 100;

ProgressBar1.Step := 1;

ProgressBar1.Position := 0;

end;