2 Афтар:
А зачем модуль SysUitis ? И ещё кое-что:
Ты пишешь сначало:
result:= defwindowproc(hwn, msg, wpr, lpr);
а надо наоборот, первым делом обрабатываем мессаги, а потом defwindowproc.
Вобщем типа того:
http://night444.narod.ru/delphi_min.rar