https://ruclips.ru/ru/watch/YDhdGPs7MnU/delphi-7-customizing-messagebox-using-cnpack