Не работает функция

[kakawkin]

Написал и не работает чето - возвращает пустоту. Подскажите что не так:

function TForm1.pass(count:integer) : string;
var s,ss,sss,a:string;
begin
 i:=0;
 a:='';
 s:='QWERTYUIOPASDFGHJKLZXCVBNM';
 ss:='qwertyuiopasdfghjklzxcvbnm';
 sss:='1234567890';
 repeat
  a:=a+s[random(length(s))-1];
  a:=a+ss[random(length(ss))-1];
  a:=a+sss[random(length(sss))-1];
 until count=1;
 Result:=a;
end;

Все разобрался. После
repeat надо написать в след. строке randomize;

[Valio]

Так поставь брекпоинт и посмотри что там происходит.

А это вообще выглядит забавным:

repeat
  a:=a+s[random(length(s))-1];
  a:=a+ss[random(length(ss))-1];
  a:=a+sss[random(length(sss))-1];
 until count=1;

Странно как он ещё не зациклился....

[Пепел Феникса]

repeat надо написать в след. строке randomize;

не стоит, достаточно один раз в начале программы.

[kakawkin]

я ступил просто.
При random(length(sss))-1 может попасться 0 и будет значение #0
Сделал вот так:

function TForm1.password : string;
var i:integer;s,ss,sss,a:string;
begin
 a:='';
 s:='QWERTYUIOPASDFGHJKLZXCVBNM';
 ss:='qwertyuiopasdfghjklzxcvbnm';
 i:=0;
 Randomize;
 repeat
  inc(i);
  a:=a+s[random(length(s))+1];
  a:=a+ss[random(length(ss))+1];
 until i=3;
 a:=a+inttostr(random(9)+1)+inttostr(random(9)+1);
 Result:=a;
end;