Nie działa MediaPlayer!!

Mam procedure odpowiedzialną za odtworzenie filmu:

procedure TForm4.Przygotuj(var Fname: string);
var
 ext, typ: string;
begin
 ext := UpperCase(ExtractFileExt(Fname));
    if  (ext = '.MP3') or (ext = '.WAV') then
        typ := 'MUZYKA'; 
    if  (ext = '.AVI') or (ext = '.MPG') then
        typ := 'FILMY'
    else
      exit;

   if typ = 'MUZYKA' then
     begin
       MediaPlayer1.FileName := Fname;
       MediaPlayer1.Open;
           
          ....
            tutaj robi nieistotne teraz rzeczy
          ....

       mediaplayer1.Play;
      btnPlay.down := true;
   end;
end;

no i jak chcę właczyć jakiś plik to odwtarza go przez ułamek sekundy i cisza dalej. Co może byc przyczyną?

Może to będzie działać:

procedure TForm1.Button1Click(Sender: TObject);
begin
     try

  if OpenDialog1.Execute then


    FName := OpenDialog1.FileName;  //Przypisanie sciezki zmiennej
 
    MediaPlayer1.FileName := FName;  //Przypisanie Playerowi zmiennej
    MediaPlayer1.Open; //Otwarcie filmu
    MediaPlayer1.Play;

nie wiem czy to zabardzo pomoze, ale moze masz to w jakims timerze, moze cos z tymi "nieistotnymi" ktore moga hamowac. moze sprobuj tez wyzerowac wartosci zmiennych.

ogolnie schemat: filename > open > play powinien dzialac bez problemu
(chyba ze masz zle ustawiony devicetype)