// ... seu código
 
  // Verificando se o cliente é pessoa física ou Jurídica
 
  // 1 - Física / 2 Júridica
  if (QryCliente.FieldByName('TIPO').AsInteger = 1) then
  begin
    Dest.indIEDest  := inNaoContribuinte;
  end;
 
  if (QryCliente.FieldByName('TIPO').AsInteger = 2) then
  begin
    // Se não tiver IE, consederei como isento
    if (Trim(QryCliente.FieldByName('IE').AsString) = '') then
    begin
      Dest.indIEDest := inIsento;
    end
    else begin
      { Preenchendo a inscrição Estadual e indicando
      que é contrubuinte. }
      Dest.IE := sn(QryCliente.FieldByName('IE').AsString);
      Dest.indIEDest := inContribuinte;
    end;
  end;
 
  // ... seu código