[ContraVeneno]

Código Delphi [-]
If (MonthOf(Now) = 12) and (DayOf(Now) = 24) Then begin
   case MessageDlg('¿Deseas tener una Feliz Navidad?', mtInformation, [mbYes, mbOK, mbAll, mbYesToAll], 0) of
    mrYes: MessageDlg('¡Feliz Navidad!', mtInformation, [mbOK], 0);
    mrOk: MessageDlg('¡Feliz Navidad!', mtInformation, [mbOK], 0);
    mrAll: MessageDlg('¡Feliz Navidad a todos!', mtInformation, [mbOK], 0);
    mrYesToAll: MessageDlg('¡Sí!, ¡Feliz Navidad a todos!', mtInformation, [mbOK], 0);
    mrNone: MessageDlg('¡Feliz Navidad también para ti!', mtInformation, [mbOK], 0);
  end; //Case

end; //If

shale... batman en blu ray ya estaba agotado y no me lo regalaron... voy a ver si lo consigo por internet...