Random-funktion

[KLS]

Delphi-Quellcode:

var
  zufallszahl : byte;
begin
  randomize;  //besser in FormCreate einfügen
  zufallszahl := Random(9); //0-8
  showmessage(inttostr(zufallszahl));  //beispiel
end;