Caixa de Mensagem Personalizada - Delphi

Abaixo um exemplo de como criar uma caixa de mensagem com botões personalizados.

Unit uMensagem;

Interface

function mensagem(corpo:String):integer;

implementation

uses messages, Controls, Dialogs, FMTBcd, StdCtrls, Buttons;

function mensagem(corpo:String):Integer;
var
  mensagem:TForm;
begin
  mensagem:= CreateMessageDialog('''+corpo + ''', mtConfirmation, [mbYes, mbNo]);
  (mensagemFindComponent('YES') as TButton).Caption := 'Sim';
  (mensagemFindComponent('NO') as TButton).Caption := 'Não';
  result: mensagem.ShowModal;
end;
end.

Boa Sorte a todos...

Visite: http://www.sitez.com.br/