[VotapilD]

Вот рабочий код...
a:= FormAddTextField('Ввести коэффициент a', '', 20, TF_NUMERIC); возвращает только число или строку. Не поочереди Так что переменные или из строчки извлекать или так.

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