begin
var
  MSG : iHDMessageDlg;
begin
  MSG := THDMessageDlg.New;  
  MSG
   .MsgTitle('Mensagem de Alerta')
   .MsgQuestion('Essa é uma mensagem de Alerta?')
   .MsgBody('Mensagem de Alerta, Mensagem de Alerta')
   .MsgIcon(iAlert)
   .MsgType(tOK)
   .DisplayMessage; 
end;   

begin
var
  MSG : iHDMessageDlg;
begin
  MSG := THDMessageDlg.New;  
  MSG
   .MsgTitle('Mensagem de Atenção')
   .MsgQuestion('Essa é uma mensagem de Atenção?')
   .MsgBody('Mensagem de Atenção, Mensagem de Atenção')
   .MsgIcon(iAttention)
   .MsgType(tOK)
   .DisplayMessage;
end;   

begin
var
  MSG : iHDMessageDlg;
begin
  MSG := THDMessageDlg.New;  
  MSG
   .MsgTitle('Mensagem de Erro')
   .MsgQuestion('Essa é uma mensagem de Erro?')
   .MsgBody('Mensagem de Erro, Mensagem de Erro')
   .MsgIcon(iError)
   .MsgType(tOK)
   .DisplayMessage;
end;

begin
var
  MSG : iHDMessageDlg;
begin
  MSG := THDMessageDlg.New;  
  MSG
   .MsgTitle('Mensagem de Joia')
   .MsgQuestion('Essa é uma mensagem de Joia?')
   .MsgBody('Mensagem de Joia, Mensagem de Joia')
   .MsgIcon(iLike)
   .MsgType(tOK)
   .DisplayMessage; 
end;

begin
var
  MSG : iHDMessageDlg;
begin
  MSG := THDMessageDlg.New;  
  MSG
   .MsgTitle('Essa é apenas uma Mensagem')
   .MsgQuestion('Essa é uma mensagem?')
   .MsgBody('Essa é apenas uma Mensagem, Essa é apenas uma Mensagem')
   .MsgIcon(iMessage)
   .MsgType(tOK)
   .DisplayMessage;
end; 

begin
var
  MSG : iHDMessageDlg;
begin
  MSG := THDMessageDlg.New;  
  MSG
   .MsgTitle('Mensagem de Pergunta')
   .MsgQuestion('Em qual opção você vai clicar?')
   .MsgBody('Escolha uma das opções por favor!')
   .MsgIcon(iMessage)
   .MsgType(tQuestion)
   .DisplayQuestion;
end;