[Protey]

запутался в коде ;(
добрые люди, просветите пожалуйста, куда и что нужно дописать чтобы:
1) после ввода коэффициентов жмакать кнопку и приложение продолжало работу (временной интервал сложно подогнать оптимально, 5 мало, 10 много) ?
2) после вывода результата опять нажимать кнопку и приложение закрывалось?
3)<главное> сделать перенос слов скажем про дискременант на одной строке, про первый корень на второй, про второй корень - на третьей?
пол ночи читал различные хелпы - ниасилил ((

Program x2;
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(15000);
   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;
   while KeyToAction(GetKeyClicked)<>KE_KEY0 do delay(10);
 end;
end.