Fórum Capturar imagem da webcam e converter de bmp para jpeg #446066

Gente estou com uma grade duvida;
Tenho um form que captura imagem da webcam e mostra a imagem em um TImagem, só que o tamanho da imagem esta muito grande.
Ai peguei umas dicas para converter pra Jpeg mas não esta funcionando.

Alguém pode me ajudar ????

Aqui vai meu projeto:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, Camera, Jpeg;

type
TFrmCapturaWebCam = class(TForm)
camCamera: TCamera;
BtnFechar: TBitBtn;
BtnCapturar: TBitBtn;
ImgCapturada: TImage;
procedure BtnCapturarClick(Sender: TObject);


private
{ Private declarations }
procedure AtivarWebCam;
procedure CarregarTImage(Filename:String);
procedure CapturarImagem;

public
{ Public declarations }
end;

var
FrmCapturaWebCam: TFrmCapturaWebCam;

implementation

{$R *.dfm}
procedure TFrmCapturaWebCam.AtivarWebCam;
begin
try
camCamera.Actif := True;
except
MessageDlg('Ocorreu um erro ao tentar ativar a Webcam.' + #13 +
'Certifique-se de que a câmera esteja conectada e corretamente configurada.'
, mtError, [mbOk], 0);
end;
end;

procedure TFrmCapturaWebCam.BtnCapturarClick(Sender: TObject);
begin
CapturarImagem;
BtnFechar.SetFocus;
end;

procedure TFrmCapturaWebCam.CapturarImagem;
begin
if FileExists('F.bmp') then
DeleteFile('F.bmp');
camCamera.FichierImage := 'F';
camCamera.CaptureImageDisque;
RenameFile('F', 'F.bmp');
CarregarTImage('F.bmp')
end;

procedure TFrmCapturaWebCam.CarregarTImage(Filename: String);
begin
ImgCapturada.Picture.LoadFromFile(FileName);
end;

// BmpToJpg
procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string);
var
Bmp: TBitmap;
Jpg: TJPEGImage;
begin
Bmp := TBitmap.Create;
Jpg := TJPEGImage.Create;
try
Bmp.LoadFromFile(BmpFileName);
Jpg.Assign(Bmp);
Jpg.SaveToFile(JpgFileName);
finally
Jpg.Free;
Bmp.Free;
end;
end;

procedure Jpeg2Bmp(const BmpFileName, JpgFileName: string);
var
Bmp: TBitmap;
Jpg: TJPEGImage;
begin
Bmp := TBitmap.Create;
Jpg := TJPEGImage.Create;
try
Jpg.LoadFromFile(JpgFileName);
Bmp.Assign(Jpg);
Bmp.SaveToFile(BmpFileName);
finally
Jpg.Free;
Bmp.Free;
end;
end;
end.