[MAXIUM]

Con el evento MouseWheel puedes manejar la rueda del mouse. Este es un ejemplo para mover el scroll pero puedes adaptarlo para zoom, solo fíjate en la variable WheelDelta.

Código Delphi [-]
// Utiliza la rueda del mouse para el ScrollBox.
procedure TForm1.ScrollBox1MouseWheel(Sender: TObject; Shift: TShiftState;
  WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
     ScrollBox1.VertScrollBar.Position:= ScrollBox1.VertScrollBar.Position - (WheelDelta div 20);
end;