Delphi isaac

Пробую ГПСЧ isaac не работает
x.reseed;
получаю одинаковые значения после каждого перезапуска программы

Code:

uses isaac;

procedure TForm1.Button4Click(Sender: TObject);
var
  x: TIsaac;
begin
x:=Tisaac.Create;
x.reSeed;
Memo1.lines.Add(IntToHex(x.val, 8));
end;

end.

 

Уже разобрался, но сохраню в секрете