Einfach nur in dein Programm kopieren, wobei es eventuell besser ist, wenn du diese Funktion etwas umbenennst.
Und dann statt der "standardmäßigen" Random-Funktion verwenden.
Bei mir heißt diese Funktion z.B. RandomC.
Procedure RandomC(Range: LongInt): LongInt;
Delphi-Quellcode:
updown := RandomC(2) + 1;
if updown = 1 then
...
else
...