Wie schon mehrmals mehr oder weniger direkt gesagt wurde: Du kannst "RandSeed" eine Zahl zuweisen. Das ist einfach nur eine globale Variable:
Delphi-Quellcode:
RandSeed := 123;
Caption := IntToStr(random(100)); // 85
Über GetTickCount bzw. QueryPerformanceTimer bekommt man die "Uhrzeit" (nicht wirklich die Uhrzeit aber sowas in der Art) als Integer.
Dieser Wert wird als Startwert genommen und nachdem ein paar Mathematische Operationen mit gewissen Konstanten drauf angewendet wurden hast du deine 1. Zufallszahl.
Falls dus noch nicht gelesen hast (da sind auch Algorithmen verlinkt mit denen solche Zufallszahlen generiert werden können):
https://de.wikipedia.org/wiki/Zufall...lengeneratoren
Michael
"Programmers talk about software development on weekends, vacations, and over meals not because they lack imagination,
but because their imagination reveals worlds that others cannot see."