[Kar]

Hola a todos, necesito de su ayuda, estoy intentando utilizar un arreglo dentro de una tabla, es una tabla con muchos datos, pero necesito sacar el promedio cada 24 datos y así sucesivamente hasta llegar al último registro, necesito guardarlos en una tabla para hacer comparaciones, pero el tema de los arreglos aún me cuesta trabajo, ojalá me puedan ayudar o sugerir algo.
Gracias. Saludos!!

Código Delphi [-]
Type
  TPacasRecord = record
    Banco:Integer;
    Bale:string;
    MicProm:real;
    RdProm:real;
    MasBProm:real;
    end;
      Procedure Proceso(pacarray:array of tpacasrecord);
var
  pacarray:array [1..1000] of tpacasrecord;
Table1.ACTIVE:=TRUE;
    TABLE1.OPEN;


 function Sumas(sumamic, sumard, sumamasb:real):TPacasRecord;
 begin
     sumamic:=sumamic+TABLE1.FieldByName('Mic').Asfloat;
     sumard:=sumard+TABLE1.FieldByName('Rd').Asfloat;
     sumamasb:=sumamasb+TABLE1.FieldByName('Masb').Asfloat;
 end;

 Procedure Proceso(pacarray:array of tpacasrecord);
   IF I=(Conta*24) THEN
     BEGIN

      PACARRAY[1].BANCO:=Conta;
      PACARRAY[1].MICPROM:=sumamic/24;
      PACARRAY[1].RDPROM:=sumard/24;
      PACARRAY[1].MASBPROM:=sumamasb/24;

      TPacasRecord.Banco:=Conta;
      TPacasRecord.Banco:=MICPROM;
      TPacasRecord.Banco:=RDPROM;
      TPacasRecord.Banco:=MASBPROM;

      Conta:=Conta+1;
      sumamic:= 0;
      sumard:= 0;
      sumamasb:= 0;
   end;
      table1.close;
      table1.active:=false;

    end;