[lmikle]

Никак.
Сделай у ShowLesson параметр Sender : TObject.
Тогда сработает. Никто тебя не заставляет использовать параметр, но по типу атрибута FOnClick он должен быть.

Да, еще эта процка должна быть методом классса.