Capture frame from video in TMediaPlayer

Hi,
how capture single frame from the video in TMediaPlayer?
Properties Display is set to Panel1. After capture image
from Panel1 is saved only free Panel1 althought video
is visible in the Panel1.

Miroslav Vesely

============================================
image is captured by means of this function:
============================================
  Source := FindComponent(Panel1.name);
  tempCanvas:=TCanvas.Create;
  with Source as TControl do
    tempCanvas.Handle := GetDeviceContext(notUsed);
    image2save:=TImage.create(self);

  with image2save do begin
    Height := (Source as TControl).Height;
    Width :=  (Source as TControl).Width;
    destRect := Rect(0,0,Width,Height);
    if Source is TWinControl then sourceRect := destRect else sourceRect :=
(Source as TControl).BoundsRect;
    Canvas.CopyRect(destRect,tempCanvas,sourceRect);
  end;

  MyJpeg:= TJpegImage.Create;
  MyJpeg.Assign(Image2save.Picture.Bitmap);
  MyJpeg.SaveToFile('c:\tmp\aaa.JPG');

=============================================