关于调用系统摄像头拍照有关问题，跪求大神帮忙

关于调用系统摄像头拍照问题，跪求大神帮忙~

同样的分辨率，同样的摄像头，同样的环境
我拍的有14M WINDOWS拍的只有500K
而我进行图片压缩的话图片又会失真，Windows自带的拍照则大小与清晰度俱佳！！！

我不知道哪里不对，还是有另外的调用方法，跪求大神解答~~~ ，你是BMW 你的宝马啊，肯定要大气一些啊！
------解决方案--------------------

给你一段将BMP与JPG文件互转的代码：

// 根据扩展名建立图像对象
function MakeImageByExt(const filename:String):TGraphic;
var
  ftype : string;
begin
  Result := nil;

    ftype := UpperCase(ExtractFileExt(filename));
    if (ftype='.JPG') or (ftype='.JPEG') then
    begin
      result := TJPEGImage.Create;
    end
    else if ftype='.BMP' then
    begin
      result := Graphics.TBitmap.Create;
    end;
end;

// 生成指定文件的图形对象并加载
function MakeImage(const filename:string):TGraphic;
var
  r : TGraphic;
begin
  result := nil;

  r := MakeImageByExt(filename);
  if (r<>nil) and FileExists(filename) then
  begin
    try
      r.LoadFromFile(filename);
      Result := r;
    except
      r.Free;
    end;
  end;

end;

// 按文件名转换图形
function ConvertImage(const srcname, destname:string):Boolean;
var
  dest, src : TGraphic;
begin
  Result := False;

  src := MakeImage(srcname);
  if src<>nil then
  begin
    dest := MakeImageByExt(destname);
    if dest<>nil then
    begin
      try
        dest.Assign(src);
        dest.SaveToFile(destname);
        Result := True;
      except end;
      dest.Free;
    end;
    src.Free;
  end;
end;