[roman]

Deberías ser más específico en cuanto a la localización del error. Sin embargo, en el código que escribes, el útimo ciclo seguramente te producirá el error de "Index out of bounds":

Código Delphi [-]
   // Muestra los primeros números repetidos en secuencia hasta un máximo de 6
   for i:= 0 to 6 do
   begin
      if (AModa[i].Count <> 0) then
        ShowMessage(Format('El %s número es %d con %d ocurrencias',[Secuencia[i],AModa[i].Number,AModa[i].Count]));
   end;

AModa va de 0 a 5 y tu ciclo va de 0 a 6.

LineComment Saludos