>>812
TDateTime使わずにIntegerでも良いと思われ。
後、グローバル変数にするよりクラスのメンバにした方がgood。