[[Lepe]]

Estando conectado el grid a la consulta (desde diseño) puedes usar:

Código Delphi [-]
   Dbgrid.Datasource.DAtaset.FieldByName('codigo').AsXXXX

Si en tiempo de ejecución cambias de query asociada al grid, hay que estar seguro de que todo está bien asignado:

Código Delphi [-]
  if Assigned(Dbgrid.DataSource) then 
  if Assigned(Dbgrid.DataSource.Dataset) then
  if Dbgrid.DataSource.FieldCount > 0 then
  if Assigned(Dbgrid.DataSource.FieldByName('Codigo')) then // existe el nombre del campo
    ShowMessage('Por fin colega.... '+ Dbgrid.DataSource.FieldByName('Codigo').AsString);

Saludos