Problema de MessageDlg y open.window

[NizamUlMulk]

 Ejemplo al presionar el botón ok

procedure btnOKClick(Sender: TObject);
  procedure Imprimir;
  begin
    UniMainModule.CrearWebFilePath;
    UniSession.AddJS('window.open('+QuotedStr(UniMainModule.WebFilePath)+',"_blank", "status=no,location=no,resizable=no,dependent=yes,toolbar=no,menubar=no", "false");' );
  end;
begin
  UniScreenMask1.AttachedControl := btnOk;
  UniScreenMask1.TargetControl   := Self;
  Self.MessageDlg('Desea imprimir el contenido?', mtConfirmation, mbYesNo,
        procedure (Sender: TComponent; Res: Integer)
        var cerrarModal: boolean;
        begin
          cerrarModal := Res = mrNo;
          if not cerrarModal then
            Imprimir
          else
            CloseModal;
        end);
end;

En ese ejemplo no sale nunca el mensaje, y mucho menos se abre la nueva ventana que contendría el archivo pdf a imprimir.

La prueba fue hecha sobre Chrome.
Porqué puede ser que no dispare el messagedlg?. Tampoco cierra el form porque nunca se ejecuta el callback

[NizamUlMulk]

2 años después encontré el motivo!

Es porque hay un lookupcombobox en el mismo form que tiene eventos de manejo de teclas (OnKeyPress, OnKeyUp)