ошибка в написание программы!

[-Master-]

я новичок...решил написать программу для вычисления корней квадратного уравнения...
вот код программы:

procedure TForm1.Button1Click(Sender: TObject);
var x1,x2,a,b,c,d:real;
begin
a:=strtoFloat(edit1.text);
b:=strtoFloat(edit2.text);
c:=strtoFloat(edit3.Text);
d:=sqr(b)-4*a*c;
if d<0 then
begin
x1:=0;
x2:=0;
end
else
x1:=(-b+sqrt(d))/(2*a);
x2:=(-b-sqrt(d))/(2*a);
end;
label4.caption:='x1','x2' (пишет ошибка [Error] Unit1.pas(49): Declaration expected but identifier 'label4' found)
end;
end.

помогите пожалуйста разобраться...

[Valio]

Сообщение от -Master-

label4.caption:='x1','x2' (пишет ошибка [Error] Unit1.pas(49): Declaration expected but identifier 'label4' found)

Надо писать

label4.caption := IntToStr(x1) + IntToStr(x2);

А ещё проверь вот это:

if d<0 then
 begin
 x1:=0;
 x2:=0;
 end
 else 
// Тут не надо дописать Begin?
 x1:=(-b+sqrt(d))/(2*a);
 x2:=(-b-sqrt(d))/(2*a);
 end;
label4.caption:='x1','x2' (пишет ошибка [Error] Unit1.pas(49): Declaration expected but identifier 'label4' found)
 end;
 end. Этот End с точкой самый последний должен быть в программе. Он никак не относится к БутонКлик

[-Master-]

Valio- спасибо... получилось...