И еще. Вы сеть инициализируете дважды.
Первый раз после if FirstScan пишите Disp0.pModule[1] := adr();
А затем вызываете функцию Initialization(). Где делаете ровно тоже самое.
Это не приводит к ошибке, но лучше оставить инициализацию в одном месте.