باید یک Message Handler برای پیغام WM_SysCommand فرم مورد نظر بنویسید و وقتی پیغام SC_Minimize رو دریافت کردید یعنی کاربر بر روی دکمه Minimize فرم کلیک کرده و اون موقع متد Minimize مربوط به Application رو فراخوانی میکنید تا برنامه کلا Minimize بشه ، برای این کار روال MyMinimize رو در قسمت Private کلاس فرم مورد نظر به صورت زیر اعلان کنید :
procedure MyMinimize (var Msg: TWMSysCommand) ; message WM_SYSCOMMAND;
و به صورت زیر کدش رو بنویسید :
procedure TForm2.MyMinimize(var Msg: TWMSysCommand);
begin
if MSG.CmdType= SC_MINIMIZE then
Application.Minimize;
DefaultHandler(Msg);
end;