Array en una tabla existente

[Kar]

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;

[Kar]

Hola otra vez, una pregunta ya tengo los resultados del arreglo pero ahora necesito imprimirlos en pantalla y guardarlos en un archivo o en una tabla, se puede?