при восспроизведении progressbar и label1 не работают

[blackstersl]

привет. у меня проблема при восспроизведении progressbar и label1 не работают , кажется всё правильно может вы найдёте ошибку:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
   Progressbar1.Max := MediaPlayer1.Length;
   progressbar1.Position := MediaPlayer1.position;
//èçìåíèòü ñ÷åò÷èê âðåìåíè
 if sec < 59
  then Inc(sec)
 else
  begin
   sec := 0;
   Inc(min);
  end;
 //âûâåñòè âðåìÿ âîñïðîèçâåäåíèÿ
 Label2.Caption := IntToStr(min) + ':';
 if sec < 10 then
  Label2.Caption := Label2.Caption + '0' + IntToStr(sec)
 else
Label2.Caption := Label2.Caption + IntToStr(sec);

//åñëè âîñïðîèçâåäåíèå òåêóùåé êîìïîçèöèè íå çàâåðøåíî
 if MediaPlayer1.Position < MediaPlayer1.Length
  then Exit;
//âîñïðîèçâåäåíèå òåêóùåé êîìïîçèöèè çàêîí÷åíî
 Timer1.Enabled := False;
 MediaPlayer1.Stop;

 if ListBox1.ItemIndex < ListBox1.Count - 1 then
  begin
   ListBox1.ItemIndex := ListBox1.ItemIndex + 1;
   Play;
  end;

 if (ListBox1.ItemIndex = ListBox1.Count - 1) and CheckBox1.Checked = True then
  begin
   ListBox1.ItemIndex := 0;
   Play;
  end;
end;

[mihali4]

//если воспроизведение текущей композиции не завершено

Перед тем, как копировать ваш код, переключитесь на русский, тогда будут нормальные комменты.

progressbar и label1 не работают

Что значит "не работают"? Подробнее, пжлст...
Label2 (а не label1 !) в приведенном примере должна работать нормально, особенно ежели добавить Application.ProcessMessages.

[blackstersl]

Воспроизводит трек но не показует прогрес

особенно ежели добавить Application.ProcessMessages.

если можете обьесните как и куда добавить

[mihali4]

Перед
//если воспроизведение текущей композиции не завершено

[Sibedir]

И еще кое что. В процедуру Play добавте код:

  bt := Now;

, где bt - глобальная переменная типа TDateTime.
А в обработчике TForm1.Timer1Timer вместо

 if sec < 59
  then Inc(sec)
 else
  begin
   sec := 0;
   Inc(min);
  end;
 //âûâåñòè âðåìÿ âîñïðîèçâåäåíèÿ
 Label2.Caption := IntToStr(min) + ':';
 if sec < 10 then
  Label2.Caption := Label2.Caption + '0' + IntToStr(sec)
 else
Label2.Caption := Label2.Caption + IntToStr(sec);

напишите

Label2.Caption := FormatDateTime('nn:ss', Now - bt);