To Random tam musíš dát jen jednou na začátku programu. Ne při kazždém volání procedury nebo události, jak to zřejmě děláš.