Effektiv wird bei jedem Aufruf von random etc RandSeed := $08088405*RandSeed + 1; berechnet (in 32-Bit-Arithmetik).
Das ist doch schonmal was (woher auch immer du das hast
). Jetzt fehlt nur doch der Schritt, der die eigentliche Zufallszahl ausspuckt. Kannst du auch noch aushelfen?