[angvelem]

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

Код:

1	Accept:=Source.Control is TScrollBar

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

[vvp1990]

тоесть придется сначала вставить 2 ScrollBar'а
потом привязать их к RichEdit
типо так

Код:

1	RichEdit1.ScrollBars:=ssVertical;

только куда именно непомню


и потом установить запрет на вытаскивание из RichEdit тоже непонятно.

Короче полная ж***