メッセージボックスのディフォルトボタンを指定する方法、
及び、位置を指定する方法。


前者はAPIを使用。後者はDelphi独自の関数です。
後者でディフォルトボタンを指定できないのが残念です。(^^;
もしどうしても後者でディフォルトボタンを変更したい場合は
Dialogs.pasのCreateMessageDialog関数を参考にされるとよいかもしれません。
//ディフォルトフォーカスボタンの指定
if MessageBox(Handle,
              '二つ目のボタンにフォーカスがありますか？',
              'そうなら「はいと」答えてね',
              MB_ICONINFORMATION or MB_YESNOCANCEL or 
              MB_DEFBUTTON2)=mrYes then
                 ShowMessage('OKOK');

//メッセージボックスの位置の指定
if MessageDlgPos('X,Y=(100,200)に表示中!',
                   mtConfirmation,
                   [mbYes, mbNo],
                   0,
                   100,
                   200) = mrYes then
                  ShowMessage('表示成功');

☆☆☆　　かわいいコードにゃ旅をさせよう　いざサンプル蔵へ!!　☆☆☆
                                 00/01/26(水) 01:40 凛(MXB01744)

Original document by 凛              氏 ID:(MXB01744)

ここにあるドキュメントは NIFTY SERVEの Delphi Users' Forum の16番会議室「玉石混淆みんなで作るSample蔵」に投稿されたサンプルです。これらのサンプルはボーランド株式会社がサポートする公式のものではありません。また、必ずしも動作が検証されているものではありません。これらのサンプルを使用したことに起因するいかなる損害も投稿者、およびフォーラムスタッフはその責めを負いません。使用者のリスクの範疇でご使用下さい。