#pas
procedure TfrmContactMarketing.FormMouseWheel(Sender: TObject;
  Shift: TShiftState; WheelDelta: Integer; MousePos: TPoint;
  var Handled: Boolean);
var
  Control: TControl;
begin
  Control := FindDragTarget(MousePos, True);
  if (Control = nil) then
    Exit;

  // Все классы компонентов на фрейме над которыми может находится курсор  
  if (Control is TImage) or (Control is TGroupBox) or
     (Control is TLabel) or (Control is TPanel) then
    if (Control.Owner is TFrame) then
    begin
      ScrollBoxFishka.HorzScrollBar.Position :=
        ScrollBoxFishka.HorzScrollBar.Position + WheelDelta;
      Handled := True;
    end;
end;