Guardar captura de imagen a un tamaño determinado

[rufo]

Hola amigos, aqui ando lata de nuevo resulta que tengo un programa que me permite tomar fotos con una camaraweb, todo esta bien pero al momento de guardar la imagen me la guarda muy grande en el cual esa foto la ocupo para hacer credenciales, quisiera ver si puedo definir el tamaño de la imagen al momento de guardarla o que me recomiendan.Les anexo el codigo que utilizo tanto para iniciar mi camaraweb y el de tomar fotos.

 procedure TForm1.Button1Click(Sender: TObject);
begin
  Ventana := capCreateCaptureWindowA('Ventana de captura',
       WS_CHILD OR WS_VISIBLE, image1.Left, image1.Top, image1.Width,
       image1.Height, form1.Handle, 0);
    IF Ventana <> 0 THEN
    BEGIN
       TRY
          SendMessage(Ventana, WM_CAP_DRIVER_CONNECT, 0, 0);
          SendMessage(Ventana, WM_CAP_SET_PREVIEWRATE, 40, 0);
          SendMessage(Ventana, WM_CAP_SET_PREVIEW, 1, 0);
       EXCEPT
          RAISE;
       END;
    END
    ELSE
    BEGIN
       MessageDlg('Error al conectar Webcam', mtError, [mbok], 0);
    END;
end;

 procedure TForm1.BtnGuardarImagenClick(Sender: TObject);
 begin
 IF Ventana <> 0 THEN
  BEGIN
   Guardar.FileName := 'Captura de la imagen';
   Guardar.DefaultExt := 'bmp';
   Guardar.Filter := 'Fichero Bitmap (*.bmp)*.bmp';
   IF Guardar.Execute THEN
    SendMessage(Ventana, WM_CAP_SAVEDIB, 0,
    longint(pchar(Guardar.FileName)));
   END;
end;

Por ultimo estoy usando delphi 2007 y gracias de antemano.