1:

if MessageDlg(IntToStr(Anzahl_neue_Rezepte)+' Rezept(e) wurden importiert!', mtInformation,[mbOk], 0) = mrOk then Statusformular.Close;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

function MyMessageDlg(const Msg: String; AType: TMsgDlgType; AButtons:
  TMsgDlgButtons; HelpCtx: Longint): Word;
var
  Comp: TComponent;
  k: Integer;
begin
  with CreateMessageDialog(Msg, AType, AButtons) do begin
    for k := 0 to ComponentCount - 1 do
    begin
      Comp := Components[k];
      if Comp is TButton then with TButton(Comp) do
      begin
        {Hier dem Button "Ignorieren" eine neue Bezeichnung geben.}
        {Das ändert aber nichts an der Abfrageart. Es muß weiterhin _}
        {nach if MyMessageDlg(...) = mrIgnore abgefragt werden.}
        if UpperCase(Name) = 'IGNORE' then Caption := '&Details';
      end;
    end;
    Result := ShowModal;
  end;
end;                    

1:
2:
3:
4:
5:
6:
7:

procedure TForm1.Button1Click(Sender: TO<span class="inlineSyntax"></span>bject);
begin
  if MyMessageDlg('Das ist die Message.', mtInformation, [mbOk, mbIgnore], 0) =
    mrIgnore then
    ShowMessage('Es wurde der Button "Deteils" geklickt. Tatsächlich ist ' +
      'aber der Button "Ignorieren", nur mit anderen Caption-Bezeichnung.');
end;