[lewka]

Здравствуйте!!! Не подскажите как подключить ProgressBar? Чтобы при нажатии на кнопку от отображал процесс.

[<<D>>]

Какой именно процесс тебе надо чтобы он отображал?
Вот пример отображения ProgressBar'om позиции воспроизведения после того как была нажата кнопка:

procedure TForm1.Button1Click(Sender: TObject);
begin
progressbar1.Max:=length;
while position<length do
begin
progressbar1.Position:=position;
end;
end;
// Где Position - позиция воспр., Lenght - это продолжительность

[4kusNick]

Вот пример по проще и по нагляднее:
procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer; // переменная - счетчик
begin

ProgressBar1.Min := 0; // на всякий случай ставим минимум
ProgressBar1.Max := 1000; // это максимальное значение положения (св-ва Position)
ProgressBar1.Position := 0; // обнуляем текущее положение

// при каждой итерации (проходе) этого цикла
// мы устанавливаем текущую позицию прогресс бара, равную
// нашему счетчику, который естественно, каждую итерацию увеличивается

for I := 0 to 1000 do
begin
ProgressBar1.Position := I;
ProgressBar1.Update;
Sleep(10);
end;

end;