Как отследить изменения дисплея?

Code:

...

private

procedure WMDISPLAYCHANGE(var Msg: TWMDISPLAYCHANGE);

   message WM_DISPLAYCHANGE;

...

procedure TForm1.FormCreate(Sender: TObject);

var

bp: integer;

begin

bp := GetDeviceCaps(GetDC(0), BITSPIXEL);

Form1.Caption := 'Бит на точку - ' + IntToStr(bp) +

   ' (' + FloatToStr(IntPower(2, bp)) +

   ' цветов). Разрешение ';

Form1.Caption := Form1.Caption +

   IntToStr(GetDeviceCaps(GetDC(0), HORZRES)) + 'X';

Form1.Caption := Form1.Caption +

   IntToStr(GetDeviceCaps(GetDC(0), VERTRES)) + ' ';

end;

procedure TForm1.WMDISPLAYCHANGE(var Msg: TWMDISPLAYCHANGE);

var

bp: integer;

begin

bp := Msg.BitsPerPixel;

Form1.Caption := 'Бит на точку - ' + IntToStr(bp) +

   ' (' + FloatToStr(IntPower(2, bp)) +

   ' цветов). Разрешение ';

Form1.Caption := Form1.Caption + IntToStr(Msg.Width) + 'X';

Form1.Caption := Form1.Caption + IntToStr(Msg.Height) + ' ';

end;