function prViewFinderCB(CameraHandle:prHandle;Context: prContext;Size:prUInt32;pVFData :pointer):Integer;stdcall;
var
  Buff100:array of Byte;
  Fjpg100:TJPEGImage;
  Ms100: TMemoryStream;
  bmps:TBitmap;
begin
  try
    try
      Application.ProcessMessages;
      SetLength(Buff100,Size);
      move(pVFData^,Buff100[0],Size);
      ms100 := TMemoryStream.Create;
      ms100.SetSize(Size);
      ms100.Write(Buff100[0],Size);
      ms100.Position := 0;      Fjpg100:=TJPEGImage.Create;
      Fjpg100.LoadFromStream(ms100);
      bmps:=TBitmap.Create;
      bmps.Assign(Fjpg100);
      canonCameraSxF.Aimage.Stretch:=true;
      canonCameraSxF.Aimage.Picture.Assign(bmps);    finally
      bmps.Free;
      Fjpg100.Free;
      Ms100.free;
    end;
  except
    on E:Exception do
    begin
      raise Exception.Create(E.Message);
    end;
  end;
end;