var
Ano,Mes,Dia:Word;
Hora,Min,Sec,MSec:Word;  
begin

  DecodeDate(Now,Ano,Mes,Dia);
  DecodeTime(Now,Hora,Min,Sec,MSec);
  ShortDateFormat := 'dd/mm/yyyy';
  LongTimeFormat  := 'hh:nn';
  LongDayNames[1] := 'Domingo'; LongDayNames[2] := 'Segunda'; LongDayNames[3] := 'Tera';
  LongDayNames[4] := 'Quarta';  LongDayNames[5] := 'Quinta';  LongDayNames[6] := 'Sexta';
  LongDayNames[7] := 'Sbado';
  Label1.Caption  := FormatDateTime('"Hoje " dddd, c',
                                     StrToDateTime(IntToStr(Dia) + '/' + IntToStr(Mes)  + '/' +
                                                   IntToStr(Ano) + ' ' + IntToStr(Hora) + ':' +
                                                   IntToStr(Min) + ':' + IntToStr(Sec)));
end;