부품출고후, 정비현황에서 차량번호수정시 부품출고한 차량번호가 바뀌지 않는 오류 수정코드

//정비현황에서 차량을 불러와서 부품출고한 후에 다시 차량번호를 수정시, 부품출고한 차량번호가 바뀌지 않는 오류 발생. 부품출고된 것을 바뀐 차량번호로 업데이트
adoQuery1.Close;
adoQuery1.SQL.clear;
adoQuery1.SQL.Add('Select CarNo, ID from CarFix Where Not((ID='''') OR (ID IS NULL)) Order by ID');
adoQuery1.Open;

Try

K:=0;
While Not(adoQuery1.Eof) Do Begin
sSql:='select * from BupumUse where CarNo<>'''+adoQuery1.fieldbyName('CarNo').AsString+''' '+
' and ID='''+adoQuery1.fieldbyName('ID').AsString+'''';
qrySave.Close;
qrySave.SQL.Text:=sSql;
qrySave.Open;
if qrySave.IsEmpty=false then begin
K:=K+1;
ShowMessage(adoQuery1.fieldbyName('ID').AsString);
end;

adoquery1.Next;
End;

ShowMessage(intToStr(K));
except
ShowMessage('저장중에 에러가 발생하였습니다.');
end;