如何调整屏幕刷新频率？(100分)

我在程序中加入了调整屏幕分辨率的代码，每次运行后，屏幕刷新频率都变成60HZ，
眼睛很不爽，怎样才能同时调整刷新频率，请各位高手赐教！！

procedure TForm1.ChangeSreenDisplay(x, y: Integer);
var
; ; lpDevMode : TDeviceMode;
begin
; ; EnumDisplaySettings(nil, 0, lpDevMode);
; ; lpDevMode.dmFields:=DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
; ; lpDevMode.dmPelsWidth:=x;
; ; lpDevMode.dmPelsHeight:=y;
; ; lpDevMode.dmDisplayFlags:=DM_DISPLAYFREQUENCY;
; ; lpDevMode.dmDisplayFrequency:=85; //刷新频率
; ; ChangeDisplaySettings(lpDevMode, CDS_UPDATEREGISTRY);
end;

procedure TForm1.screen1Click(Sender: TObject);
begin
; ;ChangeSreenDisplay(800,600);
end;

接受答案了.