var Arreglo : array[1..100] of TdetalleRecibo; m : integer; begin for m := 1 to 100 do begin Arreglo[m].vrec_numero := 15; ... ... end;