Превью видео файла

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  Image1->Picture->LoadFromFile(Edit1->Text);
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  if(OpenDialog1->Execute())
    Image1->Picture->LoadFromFile(OpenDialog1->FileName);
}

void __fastcall TForm3::Button10Click(TObject *Sender)
{
        MediaPlayer1->FileName="путь";
        MediaPlayer1->Open();
        MediaPlayer1->Play();
        MediaPlayer1->DisplayRect=Rect(0,0,Panel1->Width,Panel1->Height); //масштаб
        Timer1->Enabled=true;
        ScrollBar1->Max=MediaPlayer1->Length/60;
        int len = MediaPlayer1->Length;
        Edit2->Text=MediaPlayer1->Length;//IntToStr(len/60000) + ":" + IntToStr((len-((len/60000)*60000))/1000);
}
 
void __fastcall TForm3::Timer1Timer(TObject *Sender)
{
    ScrollBar1->Position=MediaPlayer1->Position/60;
}
 
void __fastcall TForm3::ScrollBar1Scroll(TObject *Sender, TScrollCode ScrollCode, int &ScrollPos)
{
    MediaPlayer1->Position=ScrollBar1->Position*60; 
    MediaPlayer1->Play();
}

Edit2->Text=MediaPlayer1->Length/60000;

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  MediaPlayer1->FileName = "c:\\tmp\\bf109.avi";
  MediaPlayer1->Open();
  MediaPlayer1->TimeFormat = tfMilliseconds;
  MediaPlayer1->DisplayRect=Rect(0,0,Panel1->Width,Panel1->Height);
  MediaPlayer1->Play();
  Edit1->Text = IntToStr(MediaPlayer1->Length / 1000 / 60) + " мин.";
}