[RoboStudent]

Здравствуйте!
Не могу разобраться с одной странной особенностью:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
const
  alphabet='abcdefghijklmnopqrstuvwxyz';
var
  temp: string;
  i:integer;
begin
  temp:='';
  for i:=1 to 8 do
   temp:=temp+alphabet[random(length(alphabet)+1)+1];
   memo1.Lines.Add(temp);
end; 


Генерируются случайные фразы, вставляются в memo1, но!
Если перезапустить программу и начать генерацию, все фразы
генерируются в том же самом порядке, что и в прошлый запуск
программы.
И еще - программа иногда генерирует не восьмизначные, как задумано,
а и трёх и пятизначные и даже иногда однозначные.

От чего всё это зависит?

Заранее благодарю!