Дельфийцы, помогите с багой, плиз

Доброго времени суток!

Сразу к делу.
САБЖ весь тут: посилання

если не сложно и есть время, то буду благодарен за помощь.

Спасибо.

Попробуй так:

procedure TMainForm.btnTestClick(Sender: TObject);

begin



// извращаюсь со шрифтами
MessageUnitEx.MessLabelFont.Assign(Application.MainForm.Font);

//MessageUnitEx.MessButtonFont:=Application.MainForm.Font;


MessageUnitEx.MessLabelFont.Color:=clRed;

MessageUnitEx.MessLabelFont.Size:=12;

//MessageUnitEx.MessButtonFont.Color:=clGreen;

MessageUnitEx.MessButtonFont.Style:=MessageUnitEx.MessButtonFont.Style+;

//MessageUnitEx.MessButtonFont.Size:=20;

// вывожу дмалог мля

MessageUnitEx.MessageDlgEx('Начать обновление программы?', mtConfirmation, ,0, mbYes);

end;

P.S. не тестил, т.к. он у меня не скомпилился, но должно работать.