В общем делаете в таком стиле:
Код:
procedure TForm32.Button1Click(Sender: TObject);
var
I: Integer;
begin
Form33.FormStyle := fsStayOnTop;
Form33.ProgressBar1.Max := 5000;
Form33.ProgressBar1.Position := 0;
Form33.Show;
for I := 0 to Form33.ProgressBar1.Max
do begin
Memo1.Lines.Add('Item'+IntToStr(i));
Form33.ProgressBar1.StepIt;
Application.ProcessMessages;
end;
Form33.Hide;
end;