[Alegun]

Сообщение от cyborgg4655

...Или в целом в программе.

Код:

procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
 Handled := true;
end;