Como fijar el tamaño de una columna de un DBGrid en runtime

[darkamerico]

Saludos a todos mis estimados amigos, estoy haciendo una aplicacion donde tengo 1 DBGrid llamado gridDetCompras el cual toma su informacion de la siguiente consulta:

Código SQL [-]
SELECT
alm_producto.descripcion,
alm_detallecompra.cantidad,
alm_umedida.umedida,
alm_detallecompra.precio,
(alm_detallecompra.cantidad*alm_detallecompra.precio) as subtotal
FROM
alm_detallecompra
INNER JOIN alm_producto ON alm_detallecompra.idproducto_fk = alm_producto.idproducto
INNER JOIN alm_umedida ON alm_detallecompra.idumed_fk = alm_umedida.id_umedida
WHERE
alm_detallecompra.idcompra_fk = :IDCompraX

Ahora bien, esta grilla se llena al hacer click en otra grilla que seria su maestra, el evento click de dicha grilla maestra lo coloco a continuacion;

Código Delphi [-]
procedure TForm1.gridComprasCellClick(Column: TColumn);
var
  idCompra:integer;
begin
  idCompra:=gridCompras.DataSource.DataSet.Fields[0].AsInteger;
  q_DetCompraX.Close;
  q_DetCompraX.Params[0].AsInteger:=idCompra;
  //q_DetCompraX.FieldByName('descripcion').Size:=80;
  q_DetCompraX.Open;
end;

La linea comentada del codigo anterior es la que me arroja error, al parecer los campos aun no se conocen porque la consulta debe ejecutarse primero, sin embargo tampoco me acepta esa linea cuando el Dataset esta abierto... en realidad no funciona ni lo uno ni lo otro, alguien podria darme una mano con este tema?

Muchas Gracias

Americo