Использовать в качестве обработчика сообщения обычную процедуру, а не метод объекта

У этой процедуры должен быть еще один дополнительный параметр, например:

procedure MyEventHandler(PseudoSelf: TObject; Sender: TObject);
begin
  { ... }
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 4 401 • TDictionary Custom Sort 6 433 • Fast Watermark Sources 6 214 • 3D Designer 9 174 • Sik Screen Capture 6 553 • Patch Maker 6 958 • Айболит (remote control) 6 944 • ListBox Drag & Drop 5 818 • Доска для игры Реверси 96 897 • Графические эффекты 7 150 • Рисование по маске 6 457 • Перетаскивание изображений 5 319 • Canvas Drawing 5 686 • Рисование Луны 5 394 • Поворот изображения 4 934 • Рисование стержней 3 517 • Paint on Shape 2 784 • Генератор кроссвордов 3 647 • Головоломка Paletto 2 945 • Теорема Монжа об окружностях 3 754 • Пазл Numbrix 2 474 • Заборы и коммивояжеры 3 155 • Игра HIP 2 117 • Игра Go (Го) 2 049 • Симулятор лифта 2 410 • Программа укладки плитки 2 103 • Генератор лабиринта 2 562 • Проверка числового ввода 2 253 • HEX View 2 580 • Физический маятник 2 189