[Black Raider]

Вот так:

Код:

date_ok:=SysUtils.Date;
DateSeparator := '_';
ShortDateFormat := 'dd/mm/yyyy';
label1.caption:=datetostr(now());