procedure WriteDate(const Section, Ident: string; Value: TDateTime)
Записывает дату.
Если ключ или секция не существуют, они создается автоматически.
Параметры: