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