public
procedure WMSysCommand(var Msg: TWMSysCommand);
message WM_SYSCOMMAND;
............
procedure TForm1.WMSysCommand;
begin
if (Msg.CmdType = SC_MINIMIZE) or (Msg.CmdType = SC_MAXIMIZE) then
Showmessage('Deneme'); //Burda istediğiniz işlemi gerçekleştirebilirsiniz
DefaultHandler(Msg);
end;