Disable musehjul - hvordan

Hvad med noget som dette:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
...
if Screen.ActiveControl.ClassName = 'TDBGrid' then
  Handled := True;
...

Jeg bruger det ioevrigt selv til ComboBoxe, som ikke skal rulle med musehjulet, naar de har fokus.

Den kan jeg ikke få til at fungere. Men jeg har prøvet http://community.devexpress.com/forums/t/44546.aspx
og det ser ud til at fungere efter hensigten.

Brugte som sagt mit eget Google resultat - og det virker efter hensigten.

Øv, mine forslag kan aldrig bruges.

Det kan de da sikkert - jeg kunne bare ikke lige få det her til at fungere. Men Googlede mig frem til en løsning der ser ud til at holde.