Seguro que hay metodos mejores, modificando la clase o capturando el mensaje del raton, pero aqui te dejo uno que, por lo menos, es curioso.
Suponemos que le Panel que quieres cambiar se llama Panel1, coloca este codigo en el evnto OnMouseWheel del formulario
Código Delphi
[-]
procedure TForm1.FormMouseWheel(Sender: TObject; Shift: TShiftState;
WheelDelta: Integer; MousePos: TPoint; var Handled: Boolean);
begin
if ChildWindowFromPoint(Handle,ScreenToClient(MousePos)) = Panel1.Handle then
Panel1.Caption:= IntToStr(StrToIntDef(Panel1.Caption,0) + (WheelDelta div Abs(WheelDelta)));
end;