Yo uso una barra dentro de un pequeño formulario con un formato unificado para toda la aplicación. La llamo siempre que lo necesito con este código.
Código Delphi
[-] Application.CreateForm(TF_barra, F_barra);
F_barra.caption := 'Texto para mostrar en la ventana.';
F_barra.Panel1.caption := 'Texto para mostrar sobre la barra.';
F_barra.ProgressBar1.Position := 0;
F_barra.ProgressBar1.Max := cTamanho; F_barra.Show;
F_barra.Update;
F_barra.ProgressBar1.StepIt;
F_barra.Panel1.caption := 'Estado: '+ IntToStr(F_barra.ProgressBar1.Position) +' / '+ IntToStr(F_barra.ProgressBar1.Max);
F_barra.Update;
F_barra.ProgressBar1.Position := F_barra.ProgressBar1.Max;
F_barra.close;
F_barra.free;