Почему индекс находится вне границ массива?

...
SecretKeyEmailArray:Array of byte; //Массив неопределенной длины с типом данных байт
...
NumberCharsOfEmail:=Length(Email); //Узнаем количество символов в строке
...
SetLength(SecretKeyEmailArray,NumberCharsOfEmail); //Устанавливаю длину массива, равную количеству символов
For NumberOfCicles:=1 to NumberCharsOfEmail do // Создаем цикл, который работает от первого до n-го последнего //элемента массива
SecretKeyEmailArray[NumberOfCicles]:=Ord(Email[NumberOfCicles]); //Записываем в n-ый элемент массива байтовый код i-ой буквы из строки
...

For NumberOfCicles:=0 to NumberCharsOfEmail-1 do

For NumberOfCicles:=0 to NumberCharsOfEmail-1 do
SecretKeyEmailArray[NumberOfCicles]:=Ord(Email[NumberOfCicles]);

For NumberOfCicles:=0 to NumberCharsOfEmail-1 do //Динамический массив
Begin
NumberOfCiclesInString:=NumberOfCicles+1; //В строке индексация с 1, поэтому компенсиурем, прибавляя 1 к номеру итерации
SecretKeyEmailArray[NumberOfCicles]:=Ord(Email[NumberOfCiclesInString]); //И он в упор не хочет записывать в 0-ую ячейку первый символ строки

var a:array of byte;
    s:string;
    n,i:integer;
begin
writeln('s:');
read(s);
setlength(a,length(s));
for i:=1 to length(s) do
 begin
  a[i-1]:=ord(s[i]);
  write(a[i-1]:4)
 end;
end.

SecretKey:byte; //Тип byte
...
...
For NumberOfCicles:=1 to NumberCharsOfEmail do //В цикле
...
SecretKey:=Random(20); //Рандомное значение
Write(UserKey,SecretKey); //Ссылка на объект не указывает на экземпляр объекта.
...