错在哪里在线等呀急呀

Question

VAR
FF：ARRAY OR TLABEL；------全局变量
I：INTETGER；
在窗体的ONPAINT事件写
BEGIN
 SETLENGTH（FF，10）；
TRY
 FOR I：=1 TO 10 DO
 BEGIN
 FF[I]：=TLABEL。CREATE（FORM1）；
 FF[I]。PARENT：=FORM1；
 FF[I]。LEFT：=100；
 FF[I]。CAPTION；=‘WERWE’；
 END；END；
在窗体的CLOSE事件写
VAR
J：INTEGER；
FOR J：=1 TO 10 DO
 BEGIN
 FF[J]。FREE；
 END；为何有错误呀