procedure WMDisplayChange(var Message:TMessage); message WM_DISPLAYCHANGE;
begin
ShowMessage('Changes in display detected!');
inherited;
end;