procedure TMain.FormShow(Sender: TObject); begin PostMessage(handle, WM_SYSCOMMAND, SC_MINIMIZE, 0); end;