How do I return the values ​​of a Query in the Checklist using fastreport Delphi?

Then fill in the Edit1 field and then press the “Buscar” button to return the values ​​from the query in CheckListBox1, then I will select the values ​​I want and send the ID of the selected items to another query “QryItens” within a Where IN :OP

procedure Button2OnClick(Sender: TfrxComponent);
var
mrpValue: string;    
begin
 mrpValue := Edit1.Text;
 QryOp.ParamByName('MRP') := mrpValue;
 QryOp.Open;     
 ds := Report.GetDataset('QryOp');
    while not ds.eof do
    begin
CheckListBox1.Clear;                    
        CheckListBox1.Items.Add( ds.Value('COD_PRODUTO') );
        ds.Next;
    end;
ShowMessage(mrpValue);
end;

QryOp:

SELECT
O.COD_PRODUTO                          
FROM TMRP M  
LEFT JOIN TORDEMPROD O ON O.NUM_CHMRP = M.NUM_CHAVE
WHERE NUM_MRP = :MRP

Query Itens:

SELECT 
    TREQDEVMAT.COD_PRODUTO,
    TPRODUTO.DES_PRODUTO,
    TPRODUTOIDIOMA.DES_PRODUTO,                              
    TREQDEVMAT.NUM_CHAVEOP,
    TREQDEVMAT.QTD_REQUISITADA,   
    TPRODUTO.FLG_ASSISTTEC,
    TPRODUTO.VAL_ULTCUSTOMOV,
    TPRODUTO.DAT_ULTCOMPRA        
FROM 
    TREQDEVMAT
LEFT JOIN 
    TPRODUTO ON TPRODUTO.COD_PRODUTO = TREQDEVMAT.COD_PRODUTO
LEFT JOIN 
    TORDEMPROD ON TORDEMPROD.NUM_CHAVE = TREQDEVMAT.NUM_CHAVEOP
LEFT JOIN 
    TPRODUTOIDIOMA ON TPRODUTOIDIOMA.COD_PRODUTO = TREQDEVMAT.COD_PRODUTO        
WHERE 
    TREQDEVMAT.NUM_CHAVEOP = :OP        
    AND TPRODUTO.FLG_ASSISTTEC = 1 AND TPRODUTOIDIOMA.COD_IDIOMA = 1 AND TREQDEVMAT.COD_EMPRESA = 1