Ошибка при воспроизведении видео

procedure TForm1.Videoplayg(Sender: TObject);
 var
 WeiToHei:double;
 Hei,Wei,TopHei:integer;
 AudioSVideo: Boolean;
  begin
  //определить количество строк в листе. Если меньше 1, то не стартуем
   //showmessage(inttostr(  Listbox1.ItemIndex)+' - '+inttostr(  Listbox1.Items.Count));
   if Listbox1.Items.Count>0 then
           begin
       if (listbox1.ItemIndex<0) then
       begin
     //    showmessage('Итем меньше 0, тогда 0');
                     listbox1.itemindex:=0;
                     // showmessage(inttostr(  Listbox1.ItemIndex)+' - '+inttostr(  Listbox1.Items.Count));
       end
 
       else
            begin
       if (listbox1.ItemIndex< (ListBox1.Items.Count-1))  then
       begin
    //    showmessage('Итем меньше общего количества, то итем+1');
                Listbox1.itemIndex:=listbox1.itemindex+1;
       end
        else
        begin
     //          showmessage('Не меньше 0 и не меньше количества (равно наверное), тогда 0');
        listbox1.itemindex:=0;
        end;
            end;
 
 // showmessage('Строка:' + inttostr(Listbox1.ItemIndex)+ ' из:'+ inttostr(Listbox1.Items.Count));
 
    try
    //WeiToHei:= infoWidth(listbox1.items.Strings[listbox1.itemindex]);
    WeiToHei:=2;
    except
    Append(ErrorFile);
  WriteLn(ErrorFile, timetostr(time)+' - ошибка в считывании файла:'+listbox1.items.Strings[listbox1.itemindex]);
 CloseFile(ErrorFile);
    end;
//showmessage(floattostr(WeiToHei));
Wei:=panelvideo.Width;
Hei:=round(Wei/WeiToHei);
TopHei:=round((Panelvideo.Height-Hei)/2);
//showmessage('All Research');
 
 
          //  infoWidth(listbox1.items.Strings[listbox1.itemindex]);
              if listbox1.Items.Count>0 then
       begin
      // Showmessage('Количество больше 0');
         if FileExists(listbox1.items.Strings[listbox1.itemindex])then
          begin
           //  Showmessage('файл найден ');
            try
      SoundOnMediaPl:=true;
 
 
       MediaPlayer1.filename:= listbox1.items.Strings[listbox1.itemindex];
       MediaPlayer1.Open;
       MediaPlayer1.DisplayRect :=Rect(0,TopHei,wei,Hei);// PanelVideo.ClientRect;
       MediaPlayer1.Play;
           Append(SVideoFile);
          WriteLn(SVideoFile, timetostr(time)+': Запустили '+ listbox1.items.Strings[listbox1.itemindex]);
           WriteLn(SVideoFile, 'с разрещением: '+ inttostr(Wei)+'x'+inttostr(Hei)+' и пропорцией:'+floattostr(Weitohei));
          CloseFile(SVideoFile);
 
 
                except
  Append(ErrorFile);
  WriteLn(ErrorFile, timetostr(time)+' - ошибка в проигрывании:'+listbox1.items.Strings[listbox1.itemindex]);
 CloseFile(ErrorFile);
 
              Videoplayg(self);
            end;
            AudioSVideo:=false;
            SoundPlayerOff(AudioSVideo);
           end//
           else
           begin
           //showmessage('Нет видосов в базе');
           Append(ErrorFile);
  WriteLn(ErrorFile, timetostr(time)+' - Не найден файл:'+listbox1.items.Strings[listbox1.itemindex]);
 CloseFile(ErrorFile);
            Videoplayg(self);
           end;
           //  SoundOnMediaPl:=true;
       //   showmessage('=%d',
        //  [
          // Mediaplayer1.DisplayRect.Left,
                 // Mediaplayer1.DisplayRect.Top,
                 // Mediaplayer1.DisplayRect.Right,
           //       Mediaplayer1.DisplayRect.Bottom]
           //       );
           end;
 
   end
   else
   begin
    Append(ErrorFile);
  WriteLn(ErrorFile, timetostr(time)+' - ошибка.Плейлист пуст');
 CloseFile(ErrorFile);
   end;
  end;