[esublim]

Código Delphi [-]
form2.query_consulta_pc.Close;
                    form2.query_consulta_pc.SQL.Clear;
                    form2.query_consulta_pc.SQL.Add('Select * from articulos_compuestos where cod_compuesto = '''+Articulos_Compuestos.Edit_codArt.text+''' group by cod_terminado');
                    form2.query_consulta_pc.Execute;

                    for buscar := 0 to form2.query_consulta_pc.RecordCount-1 do
                    begin
                            a:= Articulos_Compuestos.gridproductos.RowCount;
                            Articulos_Compuestos.gridproductos.RowCount := a +1;
                            Articulos_Compuestos.gridproductos.Cells[ 0, a ] := form2.query_consulta_pc.FieldByName('cod_terminado').AsString ;
                            form2.query_consulta_pc.Next;
                    end;

este me esta funcionando.. muchisimas gracias