[pharaonhx]

tengo el siguente probleminta


tengo un grid y quiero que cunado entre en la primera celda del grid un numero o codigo cuando salga de esa celda la segunda celda que es descripcion se llene con una con los datos de una consulta.

y lo estoy haciendo asi

Código Delphi [-]
procedure TFrmFactura.DBGrid1ColExit(Sender: TObject);
 begin
 dm1.QProducto.Active:= false;
    Dm1.QProducto.SQL.Text:='SELECT * FROM producto WHERE CodigoProducto =:Cod';
    Dm1.QProducto.Params[0].AsString:= DBGrid1.Columns[0].DisplayName;
    dm1.QProducto.Active:=true;
    if dm1.QProducto.RecordCount = 0 then
          ShowMessage('Este codigo de Producto no existe');
    dm1.TDetalleCodigoProducto.Value:= dm1.QProductoCodigoProducto.Value;
    dm1.TDetalleDescripcion.Value:= dm1.QProductoDescripcion.Value;
   // dm1.TDetallePrecioUnitario.Value:=dm1.QProductoPrecioUnitario;

el problema es que no se real mente como puedo pasar el parametro para la busqueda en el query en esta parte
Dm1.QProducto.Params[0].AsString:= DBGrid1.Columns[0].DisplayName;
no da error per siempre se cumple que no existe el producto