Fórum O velho problema do Rave 5 com o jpg #596382

procedure Tcad_igreja.Button1Click(Sender: TObject);
var
diretorio: string;
Bmp: TBitmap;
begin
  Openpicturedialog1.Filter := ''jpg|*.jpg'';
     if
       Openpicturedialog1.Execute then
       begin
          if
          not(fileexists(''C:\\\\Cadastro\\\\Fotos\\\\Logo.jpg'')) then
          begin
            image1.Picture.LoadFromFile(Openpicturedialog1.FileName);
            diretorio := ''C:\\\\Cadastro\\\\Fotos\\\\Logo.jpg'';
            image1.Picture.SaveToFile(diretorio);
           DbEdit8.Text := ''C:\\\\Cadastro\\\\Fotos\\\\Logo.jpg'';
           Bmp := TBitmap.Create;
           try
          Bmp.Assign(Image1.Picture.Graphic);
          Bmp.SaveToFile(''C:\\\\Cadastro\\\\Fotos\\\\BMP\\\\Logo.bmp'');
          finally
          Bmp.Free;
          end  
     end
     else
     begin
        if MessageDlg(''Este registro já possui uma foto associada a ele. Deseja substituir?'',mtinformation,[mbyes,mbno],0) = mryes then
        begin
           deletefile(''C:\\\\Cadastro\\\\Fotos\\\\Logo.jpg'');
           deletefile(''C:\\\\Cadastro\\\\Fotos\\\\BMP\\\\Logo.bmp'');
           image1.Picture.LoadFromFile(Openpicturedialog1.FileName);
           diretorio := ''C:\\\\Cadastro\\\\Fotos\\\\Logo.jpg'';
           image1.Picture.SaveToFile(diretorio);
           DbEdit8.Text := ''C:\\\\Cadastro\\\\Fotos\\\\Logo.jpg'';
           Bmp := TBitmap.Create;
          try
          Bmp.Assign(Image1.Picture.Graphic);
          Bmp.SaveToFile(''C:\\\\Cadastro\\\\Fotos\\\\BMP\\\\Logo.bmp'');
          finally
          Bmp.Free;
          end  
      end
      else
        abort;
     end 
  end
  else
     begin
     image1.Picture.LoadFromFile(DbEdit8.Text);
    end
end;