[Protey]

чтото вроде этого:

Program ypaBHeHu9;
var
   a,b,c:real;  //известные величины
   d:real;  //дискрэменант
   textField_id: integer;
begin
   textField_id := FormAddTextField('Ввести коэффициенты a,b,c: ', '1', 20, TF_NUMERIC);
   showform;
   delay(10000);
   d := b*b-4*a*c;   //дискрэменант
 begin
   if d>0
      then drawtext('D>0 => Два корня: Меньший= ',(-b-sqrt(d))/2*a,', Больший= ',(-b+sqrt(d))/2*a)
   else if d=0
      then drawtext('D=0 => Один корень: x=',-b/2*a)
   else if d<0
      then drawtext('D<0 => Нет действительных корней', 0, 0);
   repaint;
 end;
end.

компилятор ругается на строки: 13, 15
и честно говоря уже запутался как чего писать