TQuery에서 에러 종류에 따라 분기하는 방법은 대개 아래와 같습니다.
wi
with Query1 do
begin
   :
  try
    :
  except
    on E: EDatabaseError do
      begin
        if Pos('KEY VIOLATION',  UpperCase(E.Message)) > 0 then
        begin
          // KEY 중복시 처리 루틴
        end else
        if ....
      end;

    on E: EInOutError do
      begin
        case E.ErrorCode of
          :
        end;
      end;

  end;
end;

위의 내용을 적당히 응용하거나 SysUtils 소스를 참조하십시오.