Ошибка доступа к Датамодулю Delphi

[Maria_]

В программе нужно сделать так, чтобы 25 числа каждого месяца всем записям в базе данных добавлялась абонентская плата. Беру компонент Calendar у когорого есть свойство Day. Пишу условие на FormCreate


if cal1.Day=25
then
begin
DataModule3.Table1.First;
repeat
begin
nom:=nom+1;
Form2.DBEditAPTel.Text:=floattostr( StrToFloat(Form 2.DBEditAPTel.Text)+700);
DataModule3.Table1.Post;
DataModule3.Table1.Next;
end
until
DataModule3.Table1.RecordCount=nom;


Как только число в Винде в календаре совпадает с числом в условии и тело условие начинает выполняться, выдает Ошибку доступа и ругается на Дата Модуль, говорит что недоступное значение. Не пойму почему.

[Прик]

Чего тут непонятного. Когда программа запускается, формы, в т.ч. и DataModule, создаются в том порядке, какой указан в проекте. А порядок, судя по ошибке такой, что первой создается главная форма, а затем DataModule.

Отсюда и ошибка: обращение к форме DataModule, которая еще не создана.
Чтобы избежать такой ошибки надо изменить порядок создания форм так чтобы DataModule создавалась первой, а затем уже главная форма.

Изменить порядок создания можно через меню Project>Options..., закладка Forms, где в списке Auto-create forms мышкой поменять расположение форм.
Или в тексте проекта (.dpr) поменять местами строки, которые создают формы.