Her zaman yardımlarını esirgemeyen değerli dostlar. şu an izindeyim ve yarım kalan 6 projemi tamamlamaya karar verdim.  Bunlardan bir tanesi mediaplayer uygulaması.
Bugün itibariyle çalışan 1200 üzeri yerli ve yabancı tv,radyo,webcam ve video kanalları ve çok sayıda media formatını destekleyen bir mediaplayer. Bunun için WindowsMediaPlayer kullanıyorum. Yalnız mod seçimini none olarak. Zira biraz farklılık olsun istedim. Fakat  trackbar ses kontrolü ve progressbar ile de gösterim zamanını ayarlama yapamadım. Tamamladıktan sonra sizlerle paylaşmaktan mutluluk duyarım. Bu konuda bilgisi olan arkadaşlar yardımcı olursa memnun olurum.

Trackbar ile yaptığım şu çalışma yeterli sonuç vermedi.

procedure TForm1.TrackBar1Change(Sender: TObject);
  var value:integer;
  begin
  Trackbar1.max:=1000;
  Trackbar1.min:=0;
  for value:=1 to  1000 do
  begin
  WindowsMediaPlayer1.settings.volume:=Trackbar1.Position+value;
  end;end;

Progressbar uygulamasınıda yapamadım, ama hala uğraşıyorum. Şimdiden teşekkür ederim.