窗口最小化代码的执行。(20分)

窗口在最小化时需要执行一段代码，应将代码放在什么事件中？谢谢！
在OnResize中不行。

onpapent

截获 WM_SYSCOMMAND
TForm1 = class(TForm)
private
procedure WMSysCommand(var Message: TMessage); message WM_SYSCOMMAND;
{ Private declarations }

procedure TForm1.WMSysCommand(var Message: TMessage);
begin
if Message.WParam = SC_ICON then
showmessage('最小化了');
inherited;
end;