Dupla consulta em sql

BOA NOITE SOU INICIANTE NA PROGRAMACAO E NO FORUM

ESTOU COM UMA SITUACAO DE URGENCIA MUITA URGENCIA !!! POR FAVOR ME AJUDE

TENHO UMA TABELA DE PEDIDO COM ITENS REPEDITOS MAIS DE UMA VEZ COM O MESMO CODIGO DE BARRA, JA TENHO UMA ROTINA COM QUERY QUE FAZ QUANDO HA APENAS UM ITEM COM CODIGO UNICO NESTA TABELA MINHA ROTINA ENCONTRA E EXLCUIR ATE AI BELEZA, MAS PRECISO COLOCAR UMA CONDICAO QUE SE MEU SELECT ENCONTRAR MAIS DE UM COM O MESMO CODIGO ELE ME MOSTRE OS MESMO E POSSIBILITE A EXCLUIR APARTIR DO NUMERO DO ITEM NAO MAIS DO CODIGO DE BARRA, PARA ME AJUDAREM SEGUE UMA MOSTRAR DA MINHA ROTINA

 

procedure TFrm_PedidoCliBx.Ed_codigoExit(Sender: TObject); var codInterno:string; cod_consig:string; cod_item:string; item:string; qtde_real,qtde_local,qtde_estoque:string;

 dm_bd.Ds_ITEMCONSIGCLI.close;
 dm_bd.Ds_ITEMCONSIGCLI.OPen;
 Dm_Bd.SQL_ItemConsigCli.OPEN;

 qr_canc.SQL.text:=('select * from ITCONSCLI where COD_BARRAS = '+QuotedStr(copy(ED_codigo.TEXT,1,14)));
 qr_canc.ExecSQL(true);
 qr_canc.open;

 ds_novo.Close;
 ds_novo.open;
 Qtde_Real:='';
 qr_produto.Close;
 qr_produto.sql.Text:='select cod_barras,qtde_atual from produto Where cod_barras = '+QuotedStr(copy(ED_codigo.TEXT,1,14));
 qr_produto.ExecSQL();
 qr_produto.Open;
 Qtde_Real:=CurrToStr(( Qr_produto.fieldbyname('qtde_atual').AsCurrency)+(dm_bd.DS_ITEMCONSIGCLI.FieldByName('qtde').AsCurrency));
 if ds_novo.Locate('cod_barras',copy(ED_codigo.TEXT,1,14),[]) then
 begin
 ds_novo.Edit;
 ds_novo.FieldByName('QTDE_ATUAL').AsString:=qtde_real;
 ds_novo.Post;
 end;
 ds_novo.ApplyUpdates(-1);

 qr_canc.Close;
 qr_canc.SQL.text:=('delete from ITCONSCLI where cod_barras = '+QuotedStr(copy(ED_codigo.TEXT,1,14)));
 qr_canc.ExecSQL(true);

 Dm_BD.DS_ITEMCONSIGCLI.Close;
 Dm_BD.DS_ITEMCONSIGCLI.Open;
 Dm_BD.DS_ITEMCONSIGCLI.ApplyUpdates(-1);

 ed_codigo.clear;
 ed_codigo.SetFocus;

 End;

E NESTA MINHA TABELA TENHO OS SEGUINTES CAMPOS

ID DO PEDIDO

No. ITEM

CODIGO BARRA

DESCRICAO

E OUTROS