grid y base de datos

[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+'''');
                    form2.query_consulta_pc.Execute;
                    for buscar := 0 to form2.query_consulta_pc.FieldCount do
                    begin

                           form2.query_consulta_pc.SQL.Clear;
                           form2.query_consulta_pc.SQL.Add('Select * from articulos_compuestos where cod_compuesto = '''+Articulos_Compuestos.Edit_codArt.text+'''');
                           form2.query_consulta_pc.Execute;

                            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;

me podrian ayudar no se q estoy haciendo. tengo una tabla prooducto_compuesto. alli guardo de la siguiente manera:

Cod_ compuesto codigo terminado
1 123
1 345
1 456

y qye me llene el grid con todos los codigos terminados que corresponden al codigo compuesto