var
  myDate : TDateTime;
  formattedDate : string;

begin
  myDate := StrToDate('29/02/2000');

  // Показ значения LongDateFormat, используемого по умолчанию
  DateTimeToString(formattedDate, 'dddddd', myDate);
  ShowMessage('29/02/2000 используемый  по умолчанию = '+formattedDate);

  // Изменение отображения форматирования
  LongDateFormat := 'dddd dd of mmmm yyyy';
  DateTimeToString(formattedDate, 'dddddd', myDate);
  ShowMessage('29/02/2000 с использованием изменений= '+formattedDate);
end;