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

function ExMessageDlg(const Msg: string; MsgCaption: String; DlgType : TMsgDlgType;
                     Buttons : TMsgDlgButtons; Captions: array of string) : Integer;
var
  aMsgDlg : TForm;
  CaptionIndex, i : integer; 
  dlgButton : TButton;
begin 
  aMsgDlg := CreateMessageDialog(Msg, DlgType, buttons); 
  aMsgDlg.Caption := MsgCaption;
  CaptionIndex := 0; 
  for i := 0 to aMsgDlg.ComponentCount - 1 do begin  
    if (aMsgDlg.Components[i] is TButton) then begin 
      dlgButton := TButton(aMsgDlg.Components[i]); 
      if CaptionIndex > High(Captions) then Break;  
      dlgButton.Caption := Captions[CaptionIndex];
      Inc(CaptionIndex); 
    end; 
  end; 
  Result := aMsgDlg.ShowModal; 
end;					

1:

  ExMessageDlg('Das is der Text im Dialog', 'das is die caption', mtInformation, [mbYes, mbNo], ['Ja', 'Nein']);