[romeo]

  // calc work&fact time and salary by months
  PayrollCalculate.CalcTimes(EmployeeSalary,UOM,TypeCalc::Vacation,VacationData,MQty,TotalSalary,Month);

TempDate := "Starting Date AE";
  FOR i := 1 TO 12 DO BEGIN
	IF (Month[i] <> '') THEN BEGIN
	  TmpMonth := Month[i]; // <-- ТУТ ПОСТАВЬТЕ ТОЧКУ ОСТАНОВА
	  Month[i] := COPYSTR(TmpMonth,1,STRLEN(TmpMonth)-4);
	  Y[i] := COPYSTR(TmpMonth,STRLEN(TmpMonth)-4,5);
	END;
END;

Поставьте точку останова, где я написал и в дебагере посмотрите, что заносится в TmpMonth. Если встретите "Авг" надо смотреть корректность заполнения массива Month[i].