Generator liczb losowych

Witam
Mam pewien problem mam o to taki kod

#include "stdio.h"
#include "stdlib.h"
#include "math.h"
#include "randomlib.h"

#define P 110

int main(int argc,char **argv)
{
   int i;
   double r,rmin=1e32,rmax=-1e32;
   int array[220]={0};
   /* Generate 20000 random numbers */
   RandomInitialise(1802,9373);
   for (i=0;i<200000;i++) {
     r = RandomGaussian(0,100);
     if((int) r > 0 && r < P )
       array[ (int) r + P ]++;
     if((int) r < 0 && r > (P*-1) ){
       array[ (int) r + P ] ++; 
     }
     // printf("%d \n",(int)r );
   }
   int z = 0 ; 
   for(z = 0 ; z < 220; z++){
     printf("%d %d\n", z, array[z]);
   }
   
}

#include "randomlib.c"

I probuje go przeniesc do delphi i mam problem z funkcja RandomInitialise(1802,9373) te dwa parametry okreslaja przedzial seed`a. Jak ta funkcje zrobic w delphi?

--
Pozdrawiam

RandomRange(1802,9373)

Wielkie dzieki.

Znalazlem tez przy okazji zrodla tej biblioteki jakby kogos interesowalo:
http://local.wasp.uwa.edu.au/~pbourke/other/random/randomlib.c

--
Pozdrawiam