Zatrzymanie, zablokowanie działania procedury OnMinimize

Witam, mam pytanie odnośnie zatrzymania wykonywania procedury OnMinimize. Zamiast zminimalizowania okna aplikacji chciałbym np. wyświetlić komunikat 'ok', nie wiem jak to zrobić. Na forum znalazłem coś takiego:

 
procedure WMSysCommand(var Message:TWMSysCommand); message WM_SysCommand;

procedure TForm1.WMSysCommand(var Message:TWMSysCommand);
begin

 if message.CmdType=SC_MINIMIZE then
  begin
   ShowMessage('ok');
  end;
 inherited
end;

w tym przypadku komunikat wyświetli się jednak zaraz po tym okno zostanie zminimalizowane. Może ktoś z was wie jak to zatrzymać
przy Close można użyć Action:=caNone ale tutaj mi to nie działa. Pomożecie?

Krótko:

else inherited;

Dziękuje, działa:)