[Prok186]

Код:

{= Открытие AVI-файла и вывод на TPanel первого кадра =}
function TPlayAviForm.OpenAviFile(const AviFileName:
  TFileName): Boolean;
begin
   With MediaPlayer1 do try
   Close;   Wait := False;
   FileName := AviFileName;   Open;
   TimeFormat := tfFrames;   FramesCount := Length;
   except
   MessageDlg('Incorrect AVI-file :' + #13 + AviFileName,
    mtError, [mbCancel], 0);
   Result := False;  Exit;
   end;
{---------------------------------------------------------------------}
   If FramesCount = 0 then begin
   MessageDlg('There are no frames in' + #13 + AviFileName,
    mtError, [mbCancel], 0);
   Result := False;  Exit;
   end else begin
{ Задаём размеры TPanel и всей формы по размеру кадра в открытом AVI }
{......}
{......}
{ Выводим на TPanel первый кадр  }
   MediaPlayer1.Play;    MediaPlayer1.Previous;
   end;
Result := True;
end;

После вызова этого метода, показывается форма (ShowModal), на которой установлена TPanel. Вот собственно и всё. Delphi XE2, Win7-64
TPanel, есс-нно, задана для MediaPlayer1 как "экран" (в инспекторе объектов)