lazarus где ошибка ???

Question

var 
s: real; 
i: integer; 
begin 
s:=0; 
i:= dbf .RecNo; 
dbf .DisableControls; 
dbf .First; 
while not( dbf .Eof) do 
begin 
S:=S+ dbf.FieldByName('symma'').AsFloat; 
dbf .Next; 
end; 
dbf .RecNo:=i; 
dbf .EnableControls; 
Label.Caption:=FloatToStr(s);

потому что прога сылаеться на эти коды

Руслан · Accepted Answer

Встречные вопросы: 
- почему ты считаешь, что здесь есть ошибка? 
- почему ты считаешь, что ошибка именно здесь? 
--- 
Т. е. это не твой код, ты вообще понятия не имеешь, что тут происходит? Морочь голову автору, ты же ему деньги платил. 
И русский выучи, "ссылаеться"... И заодно кавычки считать научись - зря их, что ли, подсвечивает...