Fórum parar todas os forms menos um #220864

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
   for i:= 1 to screen.FormCount -1 do
      if Screen.Forms[i].Showing then
         Screen.Forms[i].Enabled:=False;
end;