Какой именно процесс тебе надо чтобы он отображал?
Вот пример отображения ProgressBar'om позиции воспроизведения после того как была нажата кнопка:
procedure TForm1.Button1Click(Sender: TObject);
begin
progressbar1.Max:=length;
while position<length do
begin
progressbar1.Position:=position;
end;
end;
// Где Position - позиция воспр., Lenght - это продолжительность
|