//======================================================================
//  機能：メッセージダイアログのボタン表示文字を変更
//======================================================================
procedure TForm1.Button1Click(Sender: TObject);
var
        msg: string;
        rc: integer;
        Dlg: TForm;
begin
    msg := '使用中のバージョンより新しい物が公開されています。'+#13+
            '最新バージョンに更新しますか？';
    Dlg := CreateMessageDialog( msg,mtConfirmation,[mbYes,mbNo,mbOK] );
    //フォームの中央に表示される様にする
    Dlg.Left := Form1.Left+(Form1.Width -Dlg.Width ) div 2;
    Dlg.Top  := Form1.Top +(Form1.Height-Dlg.Height) div 2;
    //「ＯＫ」ボタンの文字を変更する
    TButton(Dlg.FindComponent('OK')).Caption := '変更内容(&H)';
    //初期選択状態のボタンを「はい」にする
    Dlg.ActiveControl := TWinControl(Dlg.FindComponent('YES'));

    rc := Dlg.ShowModal;
    Dlg.Free;
    case rc of
        mrYes: begin
            ShowMessage( '「はい」を選択' );
        end;
        mrOk: begin
            ShowMessage( '「変更内容」を選択' );
        end
        else Exit;
    end;
end;