var rnd: TRandomGenerator; iVec: VectorInt; begin rnd := TRandomGenerator.Create; rnd.StreamIndependence := TRngStreamIndependence.rsiLeapfrog; try iVec.Size(1000); rnd.StreamCount := 2; rnd.Stream[0].RandomUniformbitsI(iVec); rnd.Stream[1].RandomUniformbitsI(iVec); rnd.SaveToFile('D:Test.rnd'); finally rnd.Free; end; rnd := TRandomGenerator.Create; //load stream count, and individual stream state at the time when they were saved rnd.LoadFromFile('D:Test.rnd'); try //continue where we left of:... rnd.Stream[0].RandomUniformbitsI(iVec); rnd.Stream[1].RandomUniformbitsI(iVec); finally rnd.Free; end; end;