for 循环中的i为何不能赋值

下面这段代码中，i是个局部变量，RData是个数组结构，程序执行到这个过程的时候，i每次都被系统自动赋值成了 1440，而且每次循环还自动减一 ，成了从1440...到1的循环，请问高手这是怎么回事 啊？谢谢大侠了！procedure  AccGenRunHour;
var
  i,FDXS,AGCXS,QCFDXS : Integer;
begin
  FDXS := 0;                   
  AGCXS := 0;                  
  QCFDXS := 0;                 
  for i := 1 to 1440 do
  begin
    
   if(RData[2,i] = '1') and (StrToFloat(RData[4,i]) > 0) then
    begin
      FDXS := FDXS + 1;
    end;    //AGC小时
   if(RData[3,i] = '1') and (StrToFloat(RData[4,i]) > 0) then
    begin
      AGCXS := AGCXS + 1;
    end;    if(RData[4,i] = '1') and (StrToFloat(RData[4,i]) > 0) then
    begin
      QCFDXS := QCFDXS + 1;
    end;  end;
end;