[VotapilD]

Вместо делея-

..............
   showform;
   repaint;
   while KeyToAction(GetKeyClicked)<>GA_FIRE do delay(10);
   d:=b*b-4*a*c;   //дискрэменант
   showcanvas;
 begin
......