Как получить сегодняшнюю дату в delphi?

1
2
3
4
5
6
7

var CurrentDate: TDate;
begin
	CurrentDate:= Naw;
	ShowMessage(DateToStr(CurrentDate)); 
	// или сразу ShowMessage(DateToStr(Now)); 
    //если не нужно получать дату в переменную
end;