[[coso]]

Hola, puedes probar algo asi:

Código Delphi [-]
procedure T_main.UDBgrid1CellClick(Column: TColumn);
begin
     if DBGrid1.DataSource.DataSet.FieldByName('id').Asinteger < 25 then
     DBGrid1.SelectedRows.CurrentRowSelected := false;
end;