корни квадратного уравнения

[А. Долматов]

да наоборот у тебя такой символ стоит в имени его надо заменить на 1

[Stas)))]

procedure TForm1.Button1Click(Sender: TObject);
var a,b,c,d,x1,x2:real;
begin
a:=StrToInt(Edit1.Text);
b:=StrToInt(Edit2.Text);
c:=StrToInt(Edit3.Text);
d:=sqr(b)-4*a*c;
if d<0 then
d:=MessageDlg('Действительных корней уравнения нет',MtInformation,[MbOk],0)
else
begin
x1:=(-b+Sqrt(d))/(2*a);
X2:=(b+Sqrt(d))/(2*a);
d:=MessageDlg('Корни уравнения: x1='+FloatToStr(x1)+' x2='+FloatToStr(x2),Mtinformation,[mbOk],0);
end;
end;

По-моему должно работать.... не проверял, а зачем усложнять.... зачем писать какие-то дополнительные процедуры.....
А по поводу ошибок можно иногда словариком пользоваться (если с английским туго)..

И внимательно смотри у тя в одном месте Edit1 а в другом EditL и с х1 такая же ерунда....

[InseR]

Парни спасибо большое всем,кто помог разобраться с вопрос.Огромное спасибо))