Дата
А как узнать текущую дату?
var
Dat: TDateTime;
...
showmessage(DateTimeToStr(Dat));
...
Тема уже обсуждалась неоднократно, и не только здесь!
Код:
Today:=FormatDateTime('dd/mm/yyyy', Date); //дата
(или Now()).
еще можно с помощью GetLocalTime.
showmessage(timetostr(Time))
И всё