كيف يمكن جعل البرنامج تتغير اعداداته مع تغير اعدادات الوندوز

وعليكــم السـلام ورحمة الله وبركاتـه..

اعتقد جعل اعدادت الجهاز الاخر تعمل على اعدادات جهازك اسهل , بالنسبة لي على الاقل

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)

	procedure FormActivate(Sender: TObject);

  private
	{ Private declarations }
  public
	{ Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function NewRes(XRes, YRes: DWORD; Frequency: Cardinal): Integer;
var
  screen: TDeviceMode;
begin
  EnumDisplaySettings(nil, 0, screen);
  screen.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
  screen.dmPelsWidth := XRes;
 screen.dmPelsHeight := YRes;
  screen.dmDisplayFrequency := Frequency;
  Result := ChangeDisplaySettings(screen, 0);
end;

ثم في الحدث ONACTIVE للفورم الاساسي ضع هذا الكود

procedure TForm1.FormActivate(Sender: TObject);
begin

 if NewRes(1280, 800,60) = DISP_CHANGE_SUCCESSFUL then
   showmessage('تم تغيير دقة الشاشة');
end;

end.