Код который надо вписать в буттон:
procedure TForm1.Button1Click(Sender: TObject);beginSendMessage (FindWindow ('Progman', 'Program Manager'), WM_CLOSE, 0, 0);end;
Жмем на кнопочку, и наслаждаемся результатом)))