messagebox con botones en español

[[oscarac]]

yo tengo esta function donde tu mismo puedes crear tus botones y ponerle el texto que desees

Código Delphi [-]
function _Alert(const Msg: string; AType: TMsgDlgType; AButtons: TMsgDlgButtons; Captions: array of string): Integer;
var
unMsgDlg: TForm;
i: Integer;
dlgButton: TButton;
captionIndex: Integer;
begin
unMsgDlg := CreateMessageDialog(Msg,AType,AButtons);
captionIndex := 0;
for i := 0 to unMsgDlg.ComponentCount - 1 do
begin
  if (unMsgDlg.Components[i] is TButton) then
  begin
    dlgButton := TButton(unMsgDlg.Components[i]);
    if CaptionIndex > High(Captions) then Break;
    dlgButton.Caption := Captions[CaptionIndex];
    Inc(CaptionIndex);
  end;
end;
Result := unMsgDlg.ShowModal;
end;

y lo llamas asi

Código Delphi [-]
 
_Alert('No existen Vouchers Descuadrados',mtWarning,[mbOK, mbRetry],['Aceptar','Intentar de nuevo']);