Executando algo antes de minimizar

{Primeiro, capturamos a mensagem, adicionando esta linha na declaração private do form: }
type
TForm1 = class(TForm)
private
{Esta linha}
procedure WMSysCommand(var Msg: TWMSysCommand); message WM_SYSCOMMAND;
end; //Na implementation, colocamos a procedure:

procedure TForm1.WMSysCommand(var Msg: TWMSysCommand);
begin
if (Msg.CmdType = SC_MINIMIZE) or
(Msg.CmdType = SC_MAXIMIZE) then
MessageBeep(0);
DefaultHandler(Msg);
end;