var
  stream: TFileStream;
  p: int64;
  params: TIOParams;
begin
  params := TIOParams.Create(nil);
  stream := TFileStream.Create('test.mov', fmOpenRead);
  try
    p := IESearchEXIFInfo(stream);
    stream.Position := p;
    if (p >= 0) and IELoadEXIFFromTIFF(stream, params) then
    begin
      ShowMessage(params.EXIF_ImageDescription);
    end;
  finally
    params.Free();
    stream.Free();
  end;
end;

function IEReadEXIFFromMOV(Stream: TStream; OutParams: TObject): boolean;
var
  ms: TMemoryStream;
  tp: dword;
  sz: int64;
  nm: integer;
  nullpr: TProgressRec;
  abort: boolean;
  tempAlphaChannel: TIEMask;
  TIFFHeader: TTIFFHeader;
  ioparams: TIOParams;
  function GetDWord():dword;
  begin
    Stream.Read(result, sizeof(dword));
    result := IESwapDWord(result);
  end;
  function DWordToStr(dw:dword):string;
  var
    i: integer;
  begin
    result := '';
    for i := 3 downto 0 do
      result := result + chr(dw shr (i * 8) and $FF);
  end;
  function FindTag(tag:string):boolean;
  begin
    result := false;
    while Stream.Position < Stream.Size do
    begin
      sz := GetDWord(); // get atom size
      tp := GetDWord(); // get atom type
      if sz = 0 then
        sz := Stream.Size - Stream.Position
      else if sz = 1 then
      begin
        // 64 bit size
        sz := GetDWord();
        sz := sz or (GetDWord() shl 32);
      end;
      if DWordToStr(tp) = tag then
      begin
        result := true;
        break;
      end;
      Stream.Seek(sz - 8, soCurrent);
    end;
  end;
begin
  result := false;
  if FindTag('moov') and FindTag('udta') and FindTag('MVTG') then
  begin
    ms := TMemoryStream.Create();
    try
      Stream.Seek(16, soCurrent);
      ms.CopyFrom(Stream, sz - 8);
      abort := false;
      with nullpr do
      begin
        Aborting := @abort;
        fOnProgress := nil;
        Sender := nil;
      end;
      tempAlphaChannel := nil;
      TIFFHeader.Id := $4949;
      TIFFHeader.Ver := 42;
      TIFFHeader.PosIFD := 0;
      ms.Position := 0;
      ioparams := OutParams as TIOParams;
      TIFFReadStream(nil, ms, nm, ioparams, nullpr, true, tempAlphaChannel, true, true, false, true, @TIFFHeader);
      result := true;
    finally
      ms.Free();
    end;
  end;
end;

procedure TIFFReadStream(Bitmap:TIEBitmap; Stream:TStream; var numi:integer; IOParams:TIOParams; var Progress:TProgressRec; Preview:boolean; var AlphaChannel:TIEMask; TranslateBase:boolean; IgnoreAlpha:boolean; IsExifThumb:boolean; IsEXIFData:boolean; ProvidedHeader: PTIFFHeader = nil);

    Stream.read(TIFFHeader, sizeof(TTIFFHeader));

    if ProvidedHeader <> nil then
      TIFFHeader := ProvidedHeader^
    else
      Stream.read(TIFFHeader, sizeof(TTIFFHeader));

    if PosIFD = 0 then
      exit;

    if (PosIFD = 0) and (ProvidedHeader = nil) then
      exit;

var
  fs: TFileStream;
begin
  fs := TFileStream.Create('c:\tempworks\DSCF1261.MOV', fmOpenRead);
  try
    IEReadEXIFFromMOV(fs, ImageEnView1.IO.Params);
    memo1.lines.add('EXIF_Make = '+ImageEnView1.io.params.EXIF_Make);
    memo1.lines.add('EXIF_Model = '+ImageEnView1.IO.Params.EXIF_Model);
    memo1.lines.add('EXIF_DateTime = '+ImageEnView1.IO.Params.EXIF_DateTime);
  finally
    fs.Free();
  end;
end;