간단하게 마우스휠 이벤트 가져오기

마우스휠 이벤트를 가져올 함수 선언

procedure WheelEvent(var Message: TMessage); message WM_MOUSEWHEEL;

마우스휠 이벤트 처리 함수

procedure WheelEvent(var Message: TMessage);
begin
  if ( Message.wParam > 0 ) then //마우스휠이 Up일 때 처리
  if ( Message.wParam < 0 ) then //마우스휠이 Down일 때 처리
end;