Cette fonction permet de convertir une chaine de caractères ASCIZ en une date.
Function StrToDate(const S: string): TDateTime;