[Nautilus]

Добрый день, подскажите, пожалуйста

Код:

var
   Date : TDate;
begin
    Form1.Label4.Caption := DateToStr(Date);
end;

при таком коде у меня выдаёт 30.02.1989 (системная дата правильная)
Что не так?

[Bargest]

Дата не проинициализирована. Объявленная переменная лишь хранилище для даты, при старте программы её значение не определено (особенно для локальных переменных).
В справке есть функции для инициализации (в списке Obtaining current Date and Time).

[Nautilus]

Теперь вот так работает "Form1.Label4.Caption := SysUtils.DateToStr(Date) ;"- спасибо, Bargest !!!
PS- интересно, почему со временем прокатило?...

[Bargest]

Если нужно вывести текущую дату, то всё намного проще. Что-то вроде

Код:

begin
Form1.Label4.Caption := DateToStr(Now); 
end;