OpenDialogs não funcionam no windows 10

Olá a todos,

Pessoal, gostaria de uma grande ajuda. Tenho duas aplicações em Delphi XE7, ambas usam o mesmo formulário base porém e uma delas todos os OPENDIALOGS e SAVEDIALOGS não funcionam no Windows 10. Quando vc faz o "opendialog.execute" em uma aplicação funciona perfeitamente, em outra o dialog demora para abrir e quando abre abre com os ícones todos em preto e não deixam escolher a pasta. Segue um exemplo de uso, este mesmo formulário com este código em uma aplicação funciona que é uma beleza, já na outra acontece o que eu mencionei acima. Acontece inclusive quando se tenta salvar um relatório do Rave Reports ou do Fast...

if dlgArquivoRetorno.Execute then
begin
if dlgArquivoRetorno.FileName = '''' then
begin
btnRetorno.Text := '''';
end
else
begin

btnRetorno.Text := dlgArquivoRetorno.FileName;

btnProcessaRetornoClick(btnRetorno);

end;
end;

Estou utilizando:
Delphi XE7
DevExpress
FastReports
RaveReports
Firebird

Lembrando que só ocorre no windows 10...