[angvelem]

Любой контрол "восходит" к TObject, поэтому нет смысла писать:

Код:

  Accept:=Source.Control is TScrollBar

а так да, у вашего препода не пуля в голове застряла, а солидный снаряд. Придётся встраивать дополнительные TScrollBar-ы.