[312031]

Попробуй Функцию Now - возвращает текущую дату и время для местной временной зоны

str:=FormatDateTime ('h.mmmm.s dddddd', Now);
ShowMessage (str);