[size=-2]------ Добавлено в 17:28
Вот смотри в Win'e
function THIWin._onMessage;
begin
case Msg.message of
WM_SETFOCUS : _hi_OnEvent(_event_onSetFocus);
WM_KILLFOCUS: _hi_OnEvent(_event_onKillFocus);
end;
Result := _hi_OnMessage(OldMes,Msg,Rslt);
end;