紧急求救！希望得到高手们的执教。关于循环FOR语句(50分)

procedure TPl2.Pljs4;
var
H1,H2:double;
L,M,N,O: integer;
begin
create_tb1;
FOR L:=S[1,1]-S[1,2] TO S[1,1]+S[1,2] DO
FOR M:=S[2,1]-S[2,2] TO S[2,1]+S[2,2] DO
FOR N:=S[3,1]-S[3,2] TO S[3,1]+S[3,2] DO
FOR O:=S[4,1]-S[4,2] TO S[4,1]+S[4,2] DO
BEGIN
TT:=T[1,1]*L+T[2,1]*M+T[3,1]*N+T[4,1]*O;
SS:=T[1,2]*L+T[2,2]*M+T[3,2]*N+T[4,2]*O;
H1:=ABS(MB[1]-TT);
H2:=ABS(MB[2]-SS);
IF (H1<J[1]) AND (H2<J[2]) AND (L+M+N+O=PB) THEN
BEGIN
Table1.Active:=True;
Table1.Insert;
Table1.FieldValues['''+N[1]+''']:=L;
Table1.FieldValues['''+N[2]+''']:=M;
Table1.FieldValues['''+N[3]+''']:=N;
Table1.FieldValues['''+N[4]+''']:=O;
Table1.FieldValues['''+N[5]+''']:=0;
Table1.FieldValues['''+N[6]+''']:=0;
Table1.FieldValues['''+N[7]+''']:=0;
Table1.FieldValues['''+N[8]+''']:=0;
Table1.FieldValues['''+N[9]+''']:=0;
Table1.FieldValues['''+N[10]+''']:=0;
Table1.Post;
END;
END;
END;
END;
END;
end;
以上过程在编译时出错:'.'expected but ';'found
不知以上程序问题出在哪里？请帮助调试。

去掉最后三行 End；

Table1.Post;
END;
END;
END; //去掉
END; //去掉
END; //去掉
end;

这么明显你都看不到？你的那么多的For没有Begin你加了那么多的End做什么？

是啊，在for语句后面加begin吧

不会吧，这么多重循环！要被搞死！

是啊 一个BEGIN 对应一个end 而且这么多循环

book523所说得多循环问题是一个主要问题，希望各位高手帮助解决我的另一问题“高分求助，关于循环与数据库的问题！”

多人接受答案了。