Fórum como salvar minhas fotos em um determinado diretorio #15533

ola   estou usando o compontente tcamara muito bom por sinal     ate peguei o exemplo do site     so que eu gostaria de saber como mudar esta rotina para que ele salve as     fotos em um determinado diretorio     obrigado se puder me ajudar vou passar a rotina     var
    cjBmp: TBitmap;
    cjJpg: TJpegImage;
    strNomeSemExtensao: string;
    AFoto: TImage;
  begin
    AFoto:= TImage.Create(port0101);
    AFoto.Parent := port0101;
    AFoto.Visible := False;
    AFoto.Picture.Bitmap.LoadFromFile(ACaminhoFoto + '.bmp');     cjJpg := TJPegImage.Create;
    cjBmp := TBitmap.Create;     cjBmp.Assign(AFoto.Picture.Bitmap);
    cjJpg.Assign(cjBMP);     cjJpg.SaveToFile(diretorio +'.jpg');
    DeleteFile(ACaminhoFoto + '.bmp');
    cjJpg.Free;
    cjBmp.Free;
    AFoto.Free;
  end;
begin
if ws_reg <> '' then
   begin
  fCaptura := TfCaptura.Create(Self);
  try
    with fCaptura, camCamera, dtm, cdsVisitante do
    begin
      DirNomeFoto := ExtractFilePath(Application.ExeName)+
        LimpaString(FieldByName('VIS_RG').AsString) + '.bmp';
      NomeFoto := ExtractFilePath(DirNomeFoto) +
        Copy(ExtractFileName(DirNomeFoto),1, Length(ExtractFileName(DirNomeFoto))-4);       FichierImage := ExtractFileName(DirNomeFoto);
      if fCaptura.ShowModal = mrOk then
      begin
        CaptureImageDisque;
        ConverteParaJpeg(NomeFoto);
        FieldByName('VIS_FOTO').AsString := NomeFoto + '.jpg';
      end;
    end;
  finally
    FreeAndNil(fCaptura);
  end;
 if not dtm.cdsVisitante.IsEmpty then
    if FileExists(dtm.cdsVisitante.FieldByName('VIS_FOTO').AsString) then
       begin
        PORT0101.imgFoto.Picture.LoadFromFile(
          dTm.cdsVisitante.FieldByName('VIS_FOTO').AsString);
          ws_foto :=dTm.cdsVisitante.FieldByName('VIS_FOTO').AsString;
       end
        else
        port0101.imgFoto.Picture := Nil;
    end else
    begin
      ShowMessage('O R.G E OBRIGATORIO !!!');
      DBEdit4.SetFocus;
    end;