Cette fonction permet la conversion de date et heure en date de format DOS en l'objet de date et heure.
Function FileDateToDateTime(FileDate: Integer): TDateTime;