uses 
Windows, SysUtils;

...

// 这个函数返回的显示刷新率是以Hz为单位的

function GetDisplayFrequency: Integer;

var

DeviceMode: TDeviceMode;

begin

EnumDisplaySettings(nil, Cardinal(-1), DeviceMode);

Result := DeviceMode.dmDisplayFrequency;

end;