function THIMemo._onMessage;
begin
   case msg.message of
    WM_GETDLGCODE: _debug('ok');
   end;
   Result := inherited _onMessage(Msg, Rslt);
end;