Dodawanie do tablicy (kawałek źródła)

Sorki... Co tu jest źle? ... :(

 uzyt : array of word;
 i : integer;
begin
 for i := 1 to 60025 do
  begin
   if FileExists(sciezka + '\users' + IntToStr(i) + '.ini') then
    begin
     SetLength(uzyt, length(uzyt) + 1);
     uzyt[length(uzyt)] := i - 1;
    end;
  end;

jest: uzyt[length(uzyt)] := i - 1;
a chyba powinno byc: uzyt[length(uzyt) - 1] := i - 1;

Dzieki.