Delphi-Help

var

  stDay : array[1..7] of string[11] = ('Воскресенье','Понедельник','Вторник','Среда','Четверг','Пятница','Суббота');

  stMonth : array[1..12] of string[8] = ('января','февраля','марта','апреля','мая','июня','июля','августа','сентября',

'октября','ноября','декабря');

Present: TDateTime;

Year, Month, Day : Word;

begin

 Present:= Now; // Now - функция, возвращает текущую дату и время

 DecodeDate(Present, Year, Month, Day);

 Label1.Caption := 'Сегодня + IntToStr(Day)+' StMonth[Month] + IntToStr(Year)+' года,

'+stDay[DayOfWeek(Present)]+'.';

end;