function THIMST_UseEditCtrl._OnMessage;
...
begin
  Result := false;
TRY
...
FINALLY
  Result := Result or _hi_OnMessage(OldMessage, Msg, Rslt);
END;
end;