Taskdialog no se ve completo

[[Luis M.]]

Holas a todos.
No se si os ha pasado alguno, pero desde que se actualizó el windows 10 a la versión aniversario, los
cuadros "Taskdialog" no salen completos. Solo se ve la esquina superior izquierda.
En windows 7 se ven bien y en la anterior versión de windows 10, también se ven bien.
Alguno sabría como solucionar el tema?
Utilizo DX10 Seattle.
Este es el código

Código Delphi [-]
  DM.TaskDialog1.CommonButtons := [];
  DM.TaskDialog1.Buttons.Clear;
  DM.TaskDialog1.MainIcon := tdiInformation;
  DM.TaskDialog1.Title := '¿Desea salir del programa?';
  DM.TaskDialog1.Text := 'Recuerde hacer copias de seguridad asiduamente.';
  DM.TaskDialog1.ModalResult := mrCancel;
  DM.TaskDialog1.Buttons.Add();
  DM.TaskDialog1.Buttons.Add();
  DM.TaskDialog1.Buttons[0].Caption := 'Salir';
  DM.TaskDialog1.Buttons[0].ModalResult := mrOk;
  DM.TaskDialog1.Buttons[0].Default := True;
  DM.TaskDialog1.Buttons[1].Caption := 'Cancelar';
  DM.TaskDialog1.Buttons[1].ModalResult := mrCancel;
  DM.TaskDialog1.Execute;
  DM.TaskDialog1.Text := '';
  DM.TaskDialog1.Buttons.Clear;
  if DM.TaskDialog1.ModalResult = mrCancel then CanClose := False
  else
  begin
    DM.CONTA.Connected := False;
    DM.CONTA.Close;
  end;

Gracias.
Adjunto imagen.