Ayuda con error list index out of bounds

[danielmj]

hola, ya esta solucionado, el problema es que no habia declarado los campos "max y rows" en el apartado de constantes. Estuve toqueteando y debí borrarlo.
El código que tiene relacion con el error y la pregunta en cuestion es este:

Código Delphi [-]
private
    { Private declarations }
  public
    { Public declarations }
  end;

  TModa = record
     Number : Integer;
     Count : Integer;
  end;

  THilo = class( TThread )
    Ejecutar: procedure of object;
    procedure Execute; override;
  end;

const
  {Max = 50; // Número máximo de elementos a generar aleatoriamente
  Rows = 100; // Número máximo de lineas del control TListview}
  Secuencia : Array[0..5] of String = ('primero','segundo', 'tercero', 'cuarto', 'quinto', 'sexto');
  Max = 50; // Número máximo de elementos a generar aleatoriamente
  Rows = 150000000; // Número máximo de lineas del control TListview

Como se puede ver, max y rows aparecen marcados como comentarios y ahí estaba el error.