Converter botão e título do messagedlg

function MessageDlg(const Mensagem : String; aDlgType : TMsgDlgType; aBotao : TMsgDlgButtons) : Word;overload;
function TForm1.MessageDlg(const Mensagem: String; aDlgType: TMsgDlgType; aBotao: TMsgDlgButtons): Word;
var
  Form : TForm;
begin
  Form:= CreateMessageDialog(Mensagem,aDlgType, aBotao);
(Form.FindComponent('Yes') as TButton).Caption:= 'Sim';
(Form.FindComponent('No') as TButton).Caption:= 'Não';
(Form.FindComponent('Cancel') as TButton).Caption:= 'Cancelar';
if adlgtype=mtwarning then form.Caption:='Atenção';
if adlgtype=mtconfirmation then form.Caption:='Confirmação';
if adlgtype=mterror then form.Caption:='Erro';
if adlgtype=mterror then form.Caption:='Erro';
  Result:= Form.ShowModal;
end;

Read More »»