Hola ya logré que corra mi array pero no me está guardando nada en el record. El Pacarray aparece vacío y me marca un error cuando pido que se vaya al inicio de la lista. Ojalá me puedan orientar. Gracias
Código Delphi
[-]
TABLE1.OPEN;
TABLE1.ACTIVE:=TRUE;
for i:=1 to cantrow do
begin
TABLE1.First;
Bale:=TABLE1.FieldByName('Bale_ID').AsString;
sumamic:=sumamic+TABLE1.FieldByName('Mic').Asfloat;
sumard:=sumard+TABLE1.FieldByName('Rd').Asfloat;
sumamasb:=sumamasb+TABLE1.FieldByName('Masb').Asfloat;
IF I=(Contador*24) THEN
BEGIN
PACARRAY[1].BANCO:=Contador;
PACARRAY[1].MICPROM:=sumamic/24;
PACARRAY[1].RDPROM:=sumard/24;
PACARRAY[1].MASBPROM:=sumamasb/24;
Contador:=Contador+1;
sumamic:= 0;
sumard:= 0;
sumamasb:= 0;
end;