날짜를 스트링 값으로 받습니다
날짜는 s := 20020416 입니다.

날짜에서 월만 빼서 case함수로 돌리려 합니다.
copy함수로 날짜에서 빼온 월이
                 1월부터 3월까지 라면 string 변수 i에 copy(+'01'
                 4월부터 6월까지         string 변수 i에 날짜의 년+'02'
                 7월부터 9월까지         string 변수 i에 날짜의 년+'03'
                 10월부터 12월까지       string 변수 i에 날짜의 년+'04'


제가 코딩한것은
var
s , i: string;
begin
s := '20020401' ;  -->날짜는 계속 다른 값으로 받게 되어 있습니다.

case StrToInt(copy(s,5,2)) of
01..03 :    i: = copy(s,1,4) + '01';  
04..06 :    i := copy(s,1,4) + '02';
07..09 :    i := copy(s,1,4) + '03';
10..12 :    i := copy(s,1,4) + '04';
end;


위와 같이 코딩하면 계속 '''is not valid integer value ..이렇게 에러나네여