Como mudar o Caption dos bottoes em um MessageDlg ?

MessageDlgDefault (´Estado não inFormado!´,mtError,[mbOk],0);

MessageDlgDefault(´Deseja Excluir?´,mtWarning,[mbNo, mbYes],0, mrNo);

function MessageDlgDefault(Msg :String; AType: TMsgDlgType; AButtons : TMsgDlgButtons;
  IndiceHelp : LongInt; DefButton : TModalResult=MrNone) : Word;
Var
  I:Integer;
  Mensagem:TForm;
Begin
  Mensagem:=CreateMessageDialog(Msg, AType, Abuttons);
  Mensagem.HelpConText:=IndiceHelp;
  With Mensagem Do Begin
    For i :=0 To ComponentCount -1 Do Begin
      If (Components[i] is TButton) Then Begin
        If (TButton(Components[i]).ModalResult=DefButton) Then Begin
          ActiveControl:=TWincontrol(Components[i]);
        End;
      End;
    End;
    If      Atype=mtConfirmation Then Caption := ´Confirmação´
    else If AType=mtWarning      Then Caption := ´Atenção´
    else If AType=mtError        Then Caption := ´Erro´
    else If AType=mtInFormation  Then Caption := ´InFormação´;
    TButton(Mensagem.FindComponent(´YES´)).Caption    := ´&Sim´;
    TButton(Mensagem.FindComponent(´NO´)).Caption     := ´&Não´;
    TButton(Mensagem.FindComponent(´CANCEL´)).Caption := ´&Cancelar´;
    TButton(Mensagem.FindComponent(´ABORT´)).Caption  := ´&Abortar´;
    TButton(Mensagem.FindComponent(´RETRY´)).Caption  := ´&Repetir´;
    TButton(Mensagem.FindComponent(´IGNORE´)).Caption := ´&Ignorar´;
    TButton(Mensagem.FindComponent(´ALL´)).Caption    := ´&Todos´;
    TButton(Mensagem.FindComponent(´HELP´)).Caption   := ´A&juda´;
  End;
  Result:=Mensagem.ShowModal;
  Mensagem.Free;
End;