모니터 해상도가 변경될 때 값 알아오기

type
  TForm1 = class(TForm)
    Memo1: TMemo;
  private
    { Private declarations }
  public
    { Public declarations }
    procedure ChangeDisplay(var Message: TWMDisplayChange); message WM_DISPLAYCHANGE;
  end;

procedure TForm1.ChangeDisplay(var Message: TWMDisplayChange);
const
  FORMAT_DISPLAY_INFO = '해상도 : %d x %d 비트 : %d';
begin
  Memo1.Lines.Add(
    Format(
      FORMAT_DISPLAY_INFO, 
      [Message.Width, Message.Height, Message.BitsPerPixel]
    )
  );
end;