[Lazarus] MessageDlg default button

[Koenraad Lelong]

Hi,

I'm using a MessageDlg to show some information, with multiple buttons. 
Unfortunately, in this case, I would like to have another button as 
default. Is there a way to do this ?

What I have :
if MessageDlg('Attention', 'Data does exist, overwrite ?', 
mtWarning,[mbNo, mbYes],0) = mrYes then ...

I would like the mbNo to be the default button.

Thanks for any pointers,

Koenraad Lelong.