[ecfisa]

Hola.

como hago para saber que tengo que recorrer 3 items dentro de la funcion ?

Sea "a1" un arreglo estático o dinámico de elementos de cualquier tipo, podes conocer su capacidad mediante la función Length() y las cotas inferior y superior con las funciones Low() y High() respectivamente.

vg.r.:

Código Delphi [-]
...
var
  v1: array[1..10] of Pointer;
  v2: array of PChar;
begin
  ShowMessageFmt('%d - %d - %d',[Length(v1), Low(v1), High(v1)]);
  // mostrará: 10 - 1 - 10

  SetLength(v2, 10);  
  ShowMessageFmt('%d - %d - %d',[Length(v2), Low(v2), High(v2)]);
  // mostrará: 10 - 0 - 9 (indexación base-cero)

y como puedo obtener el primer campo, que también me da error al compilar

Revisa el tipo de "aRecord". Fijate que escafandra en su código lo declara como TRecods (TRecods = array of pointer)

Saludos