[thebest07]

ola amigos, muchas gracias por poner de su parte para k pudiera hacer este programa, bueno aki esta el codigo:

 
procedure Tfrmecuacion.cmdcalcularClick(Sender: TObject);
  var
  a,b,c: Integer;
  x1,x2,r: Real;
  begin
   a := StrToInt(txta.Text);
   b := StrToInt(txtb.Text);
   c := StrToInt(txtc.Text);
   r := b*b-4*a*c;
   x1:= (-b+ Sqrt(r))/2*a;
   x2:= (-b- Sqrt(r))/2*a;
  begin
   txtres1.Text := floattostr(x1);
   txtres2.text := floattostr(x2);

     end;
  end;

Ahora lo k kiero es hacer k a no sea igual a cero(0) y si es asi me tire un mensaje....diciendome que el primer valor no puede ser igual a Cero..

gracias...