Galya
Есть ф-ия CompareDateTime(const A, B: TDateTime): TValueRelationship
Сравнивает A и B...
В uses пишешь DateUtils...
Возвращаемые значения: -1 (A<B), 0 (A=B), +1 (A>B)
Также есть ф-ии CompareDate(const A, B: TDateTime): TValueRelationship и CompareTime(const A, B: TDateTime): TValueRelationship, которые сравнивают только дату и только время...
и не нужны никакие строки
