0101--->A010
0102--->A020
0201--->B010
0203--->B030  
코드가 변경되어 앞 두자리를 한자리로 줄이기 위해 01을 A로 02를 B......
그리고 기존 3,4번째 자리가 2,3번째 자리로 변경, 그리고 마지막자리는 다른걸로 활용하고자합니다.

소스는
with Query1.SQL do
begin
    Clear;
    Add('update ' + FName + ' set ori_code = ''A''+SubString(ori_code, 3, 2)+''0''');
    Add(' where SubString(ori_code, 1, 2) = '01');
end;
Query1.ExecSQL;

with Query1.SQL do
begin
    Clear;
    Add('update ' + FName + ' set ori_code = ''B''+SubString(ori_code, 3, 2)+''0''');
    Add(' where SubString(ori_code, 1, 2) = '02');
end;
Query1.ExecSQL;


인데 실행시 set문에 이상이 있다는 에러메시지가 발생합니다.
위와 같이 사용하면 안되나요... 가르켜 주시면 왕 감사하겠습니다..