To můžeme provést

právě v okamžiku nějaké činnosti, kdy se bude zobrazovat její průběh, a po skončení necháme ProgressBar "zmizet" a opět se objeví "pod ním skrytý" StatusBar. Jelikož se v naší ukázce nastavují rozměry ProgressBaru jen jednou jako událost stisku tlačítka (kvůli zjednodušení; ve vašem kódu pochopitelně budete přepínat mezi ProgressBarem a StatusBarem ve vhodnou chvíli programově), při změně rozměru okna se dostane ProgressBar jaksi mimo svou původní polohu (nebude přesně překrývat StatusBar). Proto musíte buď sami zajistit, aby se jeho rozměr aktualizoval při změně rozměru okna, nebo zajistit to, aby se rozměry okna měnit nemohly. To záleží na typu vaší aplikace a na vašem uvážení.
procedure TForm1.Button1Click(Sender: TObject);
begin
with ProgressBar1 do
begin
Parent := StatusBar1;
Left := 0;
Top := 0;
Height := StatusBar1.Height;
Width := StatusBar1.Width;
end;
end;
A to bude pro dnešek všechno. Příště se podíváme trošku na grafiku.