Отчет 14845 "Расчет Т-61"

[by_HT]

У меня запись такого вида:

  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];

Вообще у кого-нить работает отчет 14845