Hola,
Creo que no se puede hacer lo que precisas: todo está en el código de la función "CreateMessageDialog", que es la utilizada a la hora de mostrar un "MessageDlg".
En una parte del código de la función susomentada puede leerse lo siguiente:
Código Delphi
[-]
if mbOk in Buttons then DefaultButton := mbOk
else if mbYes in Buttons then DefaultButton := mbYes
else DefaultButton := mbRetry;
if mbCancel in Buttons then CancelButton := mbCancel
else if mbNo in Buttons then CancelButton := mbNo
else CancelButton := mbOk;
Quiere decirse que el botón predeterminado en el "MessageDlg" no se determina por su orden, pero por su "tipo", y así, al menos utilizando la función "MessageDlg" no podrá determinarse el botón "predeterminado", salvo haciéndolo en función de lo que puede verse en el código anterior.
Bueno. El código anterior, como he dicho, está en la función "CreateMessageDialog" que puede encontrarse en la unidad "Dialogs". Tal vez haciendo algún cambio en dicha función puedas lograr lo que persigues.
Respecto de lo de responderte a tu correo, por favor, lee la
guía de estilo de estos Foros: no tendría mucho sentido que aquí se respondiera de forma particular a cada uno de los participantes, puesto que de ese modo no podrían servir ni las preguntas ni las respuestas al resto de participantes, que es de lo que se trata.