procedure TForm1.Button1Click(Sender: TObject);
var
f: TForm;
begin
f := Dialogs.CreateMessageDialog('HOLA MUNDO', dialogs.mtInformation, dialogs.mbOKCancel);
f.Color := clYellow;
f.Font.Color := clBlue;
if f.ShowModal = mrOk
then ShowMessage('Se presionó OK')
else ShowMessage('Se presionó Cancel');
end;