30 декабря 1899 в Delphi

[Alhimik]

Это просто жесть. Нужно чтобы в поле Edit была написана текущая дата. Вот я и пытаюсь:
...
var date : TDateTime;
....
edit1.text:= DateToStr (date);
...
И выводит не сегодняшню дату, а 30 дек. 1899!!!! На компе, в левом нижнем углу экрана, дата как надо.
Что это может быть? Попробовал разбить на числа god, mes, chislo : word; функцией DecodeDate (date, god, chislo, mes); тоже самое: god=1899; mes=12; chislo=30;
Что это за беспредел?
Компилятор Borland Delphi 7.

[Xaositect]

А где Вы присваиваете переменной date текущую дату?
http://www.delphibasics.co.uk/RTL.asp?Name=Now

[Alhimik]

Вопрос снят. Спасибо.