сорри: там порушилася связь, когда переносил от проекта сюда. Связь идет от Top формы до DoData устанавливающего максимальные рандомные числа