[***XXX***]

куда строчку засунуть: ATime: Integer = 100;