Импорт из Excel

ADOQuery1.Insert;
    ADOQuery1.FieldByName('Поле1').AsString:=RangeMatrix[R,1];
    ADOQuery1.FieldByName('Поле2').AsDateTime := StrToDate(StringReplace(RangeMatrix[R,2], '''', '', [rfReplaceAll, rfIgnoreCase])); // замена апострофа
    ADOQuery1.FieldByName('Поле3').AsString:=RangeMatrix[R,3];
    ADOQuery1.FieldByName('Ñóììà äîëãà').AsCurrency :=StrToFloat(StringReplace(StringReplace(RangeMatrix[R,9], '''', '', [rfReplaceAll, rfIgnoreCase]), '.', ',', [rfReplaceAll])); // замена точки
    ADOQuery1.Active:= True;
    try                                     // пытаюсь отловить исключение
    AdoQuery1.Post;
      except
      on E : EDatabaseError
          do
          if E.Message = 'Key violation'
          then
          begin
 
          end;
          else Raise;
    end;

    try
    AdoQuery1.Post;
      except
      if (ADOQuery1.Connection.Errors.Count > 0)
       and (ADOQuery1.Connection.Errors[0].NativeError = Longint($F9BBF9BB))
     then
       ShowMessage('Такая запись уже существует.')
     else
       ShowMessage('Какая-то другая ошибка');
 
    end;

try
except 
on тип ошибки: ...
else
..
end;

function ins_contragent( value : TContrAgentRow) : integer;
var query: TADOQuery;
begin
  with value, FImport.query do
  begin
    SQL.Text := get_sql(0);
    Parameters.ParamByName('numip').Value := numip;
    ...
    try
    ExecSQL;
    except
      if (query.Connection.Errors.Count > 0)
        and (query.Connection.Errors[0].SQLState = '3022')
      then
        u:=u+1
      else
        ShowMessage('Неизвестная ошибка импорта');
      end;
    SQL.Text := 'SELECT MAX(ID) AS MID FROM client';
    Open;
    Result := FieldByName('MID').AsInteger;
    Close;
  end;
end;