Надо написать программу на Delphi, решающую квадратное уравнение, кнопки свернуть и увеличить убраны, ответ отображается в MessageBox со значком (MB_ICONINFORMATION)

if d>=0 then begin

Либо if d>-1 then begin

ну ладно, у меня проблема была с MeessageBox я понял как её теперь делать к, спасибо

а ещё можешь подсказать что здесь X2='+floattostr(x2)), 'Èíôîðìàöèÿ',MB_ICO

Заголовок месажбокса

Начало в помойку, эти настройки лучше сделать на форме. Весь проект прикрепить не могу да и не нужен он.