1. 利用wm_SysCommand及参数sc_Minimize:
procedure TForm1.ImgBtnMiniClick(Sender: TObject);
begin
SendMessage(handle, wm_SysCommand, sc_Minimize, 0);
end;
2. 利用WindowState:
procedure TForm1.ImgBtnMiniClick(Sender: TObject);
begin
ImgBtnMini.Cell := 1;
Form1.WindowState := wsMinimized;
end;