Помогите начинающему.

[Небесный]

Вот эта ошибка [Error] Unit1.pas(84): Missing operator or semicolon

Вот код события ОнКлик:

procedure TForm1.Button1Click(Sender: TObject);
var
a,b,c,d,e,f,g,h,i,j,k,l,m,n:real;
z:real;
code:integer;
s1:string;
begin
val(edit1.Text,a, code);
val(edit2.Text,b, code);
val(edit3.Text,c, code);
val(edit4.Text,d, code);
val(edit5.Text,e, code);
val(edit6.Text,f, code);
val(edit7.Text,g, code);
val(edit8.Text,h, code);
val(edit9.Text,i, code);
val(edit10.Text,j, code);
val(edit11.Text,k, code);
val(edit12.Text,l, code);
val(edit13.Text,m, code);
val(edit14.Text,n, code);
z:=700*a+500*b+200*c+1000*d+80*e+60 0*f+150*g+60*h+
20*i+150*j+180*k+200*l+800*m+1200*n ;
str(z:5:3,s1);
label1.Caption:='z='+s1+chr(13);
if not CheckBox1.checked then Edit1.Text:='0'
if not CheckBox2.Checked then Edit2.Text:='0'
if not CheckBox3.Checked then Edit3.Text:='0'
if not CheckBox4.Checked then Edit4.Text:='0'
if not CheckBox5.Checked then Edit5.Text:='0'
if not CheckBox6.Checked then Edit6.Text:='0'
if not CheckBox7.Checked then Edit7.Text:='0'
if not CheckBox8.Checked then Edit8.Text:='0'
if not CheckBox9.Checked then Edit9.Text:='0'
if not CheckBox10.Checked then Edit10.Text:='0'
if not CheckBox11.Checked then Edit11.Text:='0'
if not CheckBox12.Checked then Edit12.Text:='0'
if not CheckBox13.Checked then Edit13.Text:='0'
if not CheckBox14.Checked then Edit14.Text:='0'
end;

[AVer]

Ты потерял ";" :

if not CheckBox1.checked then Edit1.Text:='0';

во всех подобных строчках.

[Небесный]

Да, вот это я дал!!! Надо же быть таким невнимательным!!!Все заработало!!!
Всем спасибо за помощь, хорошо, что есть такие форумы!!!