procedure TForm1.RestoreMode;
begin
  ChangeDisplaySettings(DEVMODE(nil^), 0);
end;