Hola,
muchas gracias, ya lo tengo
, el codigo quedaría así:
procedure TForm1.DBGrid1CellClick(Column: TColumn);
var index : Integer;
begin
if Column.FieldName='codnum' then
ShowMessage('codnum')
else if Column.FieldName='descripcion' then
ShowMessage('descripcion');
index := DBGrid1.DataSource.DataSet.RecNo;
showMessage('La fila clikeada es ' + IntToStr(index));
end;