TDateTime ist kompatibel zu double also könntest du statt integer-field ein float-field mit entsprechenden Nachkommastellen benutzen oder du multiplizierst die TDateTime*10000 und machst dann trunc.
Delphi-Quellcode:
MainDBtabelle.FieldByName('Index').AsFloat := now;
MainDBtabelle.FieldByName('Index').AsInteger := trunc(now*10000);
Mfg.
Frank