Delphiでスクリーンセーバーみたいなのを作ってるんですが、
フルスクリーン（解像度変更）にしたあと戻す処理が出来ません。（640x480）

何かうまくフルスクリーン（解像度変更）→復帰する方法無いでしょうか？

ChangeDisplaySettingsのAPIは使用してません。
またWindowsXPだと復帰の処理を書かなくてもプログラム終了時に勝手に解像度が復元するらしいです。

よい方法を教えて下さい。

ttp://www2s.biglobe.ne.jp/~mix/game_programing_display.htm
ここにあるDisplayコンポーネントを使ってもうまくいかないし、、