Индикатор хода выполнения в строке состояния

procedure TForm1.Button1Click(Sender: TObject);
var
  pb: TProgressBar;
begin
  ...
  pb := TProgressBar.Create(Self);
  with pb do begin
    Parent := StatusBar1;
    Position := 30;
    Top := 2;
    Left := 0;
    Height := StatusBar1.Height - Top;
    Width := StatusBar1.Panels[0].Width - Left;
  end;
  pb.Visible := True;
  ...
end;

Примечание
Для работы необходимо создать хотя бы одну панель (StatusPanel) в StatusBar.