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

Следующая статья: Бегущая строка.

Решение:

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.