Галактика в вопросах и ответах

Почему, какие бы я параметры не задавал, функция NaIt возвращает всегда ноль.
Синтаксис у мя такой

{
InitMCInfo(Katsopr.dSopr);
//,,участок литья,
e:=NalT(DisYear,00000000000003B9h,4001F991038AA230H,comp(0),comp(0));
message(e);
DoneMCInfo;}

Ну всегда выдает ноль...

DIsYear - Текущая дата.

Пишу
e:=NalT(DisYear,comp(00000000000003B9h),comp(4001F991038AA230H),comp(0),comp(0))

возвращается тот же ноль. В чем же ошибка может быть?

Function NalT(dform: date; cMC: comp; cPodr: comp; cMol: comp; cParty: comp): double;
Проверьте что Вы передаете в параметрах.

А DisYear равно Katsopr.Dsopr?

DisYear равно текущей дате.
Но я все равно вызываю InitMCInfo & DoneMCInfo
и как раз InitMCInfo с Katsopr.Dsopr.
А что не так?