[ecfisa]

Hola de nuevo.

No sé el propósito del código, pero pienso que podrías hacer algo así:

Código Delphi [-]
...
begin
  Memo1.Clear;
  Randomize;
  Lista := TList.Create();
  try
    for i := Low(Const_A) to High(Const_A) do
      Lista.Add( Pointer(i) );
    for i:= Lista.Count - 1 downto 0 do
    begin
      Element := Random(Lista.Count - 1) + 1;
      Memo1.Lines.Add(Format('%d %s', [Element, Const_A[Element]]));
    end;
  finally
    for i:= Lista.Count - 1 downto 0 do
      Lista.Delete( i );
    Lista.Free;
  end;
end;

Saludos