[Gad99]

Собственно незнаю как поменять событие OnClick во время работы программы с одного на другой.
Test1.Button1.OnClick := ShowLesson;
Где ShowLesson процедура без параметров.

[lmikle]

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

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