procedure TIEMediaReader.GetSample(frame:int64; OutBitmap:TIEBitmap);
var
  bf: integer;
  frameBuffer: pointer;
begin
  fMediaDet.GetBitmapBits(frame / fFrameRate, @bf, nil, fFrameWidth, fFrameHeight);
  GetMem(frameBuffer, bf);
  try
    fMediaDet.GetBitmapBits(frame / fFrameRate, nil, frameBuffer, fFrameWidth, fFrameHeight);
    OutBitmap.CopyFromDIB(frameBuffer);
  finally
    freemem(frameBuffer);
  end;
end;

var
  media: TIEMediaReader;
  bmp: TIEBitmap;
  idx: integer;
begin
  media := TIEMediaReader.Create('test.wmv');
  idx := ImageEnMView1.AppendImage(100, 100);
  bmp := ImageEnMView1.GetTIEBitmap(idx);
  media.GetSample(0, bmp);
  ImageEnMView1.ReleaseBitmap(idx);
  media.Free();
end;