[apocalypce]

Сообщение от Страдалецъ

В общем делаете в таком стиле:

Код:

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;

спасибо попробуем