Здравствуйте, SeLarin, Вы писали:

SL>А нафига оно, если есть OnMessage, в котором можно обработать WM_QUIT? Я задал себе этот вопрос и полез экспериментировать. Оказалось, что WM_QUIT в OnMessage не ловится (и я, кажется, понял почему).

А чего там может показаться, см. Forms.pas TApplication.ProcessMessage

    if Msg.Message <> WM_QUIT then
    begin
      Handled := False;
      if Assigned(FOnMessage) then FOnMessage(Msg, Handled);