Проблема с Copy(). Delphi

[Artsiom]

Ночь, хотя скорее утро доброе.
Не могу понять почему не правильно работает функция Copy.

 for j1 := 1 to a1 do
 begin
 q:=Length(a);
  SetLength(a, q+1);
  a[q] := StrToInt(Copy(s, j1, j1));
 end;

Имеется нейкая переменная, типа string, s заполненная цифрами. К примеру 1234.
Значит следуя логики массив должен состоять из цифр
a[0]=1; a[1]=2; a[2]=3; a[3]=4;
А получается
почему в первом и втором э-тах массива цифры идут попарно?

[GetMax]

 a[q] := StrToInt(Copy(s, j1, j1));

На второй итерации это будет означать копирование со 2 второй позиции 2 символа, на 3 итерации - копирование с 3 позиции 3 символа и т.д. На мой взгляд должно быть так

 a[q] := StrToInt(Copy(s, j1, 1));

[Artsiom]

Да, точно. Голова в 3 ночи не соображает. Спасибо.