var
  myDate : TDateTime;
  formattedDate : string;

begin
  // Установите дату с 2-мя цифрами года, используя порог заданный по умолчанию
  myDate := StrToDate('09/05/30');
  ShowMessage('09/05/30 используя порог по умолчанию = '+DateToStr(myDate));

  // Теперь изменяем порог заданный по умолчанию на 80:
  // 2007 (на время написания) - 80 дает 1927
  // 30 больше 22, так что выбирается 1900-ое столетие
  TwoDigitYearCenturyWindow := 80;
  myDate := StrToDate('09/05/30');
  ShowMessage('09/05/30 используя изменённый порог = '+DateToStr(myDate));
end;