Помогите с примитивным генератором паролей

[fed9nin]

Почему так получается что при неоднократном нажатии на кнопку генерируется не всегда правильный пароль, а именно 6 знаков.

procedure TForm1.Button1Click(Sender: TObject);
const
 s='abcdefghijklmnopqrstuvwxyz0123456789';  
var
 i,j:integer; 
 pass:string;   
begin
 pass:='';
 for i:=1 to StrToInt(Edit1.Text) do
 pass:=pass+(s[random(length(s)+1)+1]); 
 ListBox1.Items.Add(pass); 
end
end;

[Аватар]

 pass:=pass+s[random(length(s)+1];

[fed9nin]

Спасибо, можно удалять тему!