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