Получение элемента даты

Используйте универсальную функцию возврата значения элемента даты (год, месяц, день, квартал):

function RetDate(inDate: TDateTime; inTip: integer): integer;
var
  xYear, xMonth, xDay: word;
begin
  Result := 0;
  DecodeDate(inDate, xYear, xMonth, xDay);

  case inTip of
    1:  Result := xYear;                  // год
    2:  Result := xMonth;                 // месяц
    3:  Result := xDay;                   // день
    4:  if xMonth < 4 then Result := 1    // квартал
        else if xMonth < 7 then Result := 2
        else if xMonth < 10 then Result := 3
        else Result := 4;
  end;
end;