Определить, что изменились настройки экрана

type

  {...} 
  private
 
    procedure
 WMDisplayChange(var
 msg: TMessage);
      message
 WM_DISPLAYCHANGE; 
  public
 
  {...} 
  end
; 
end
; 

var
 
  Form1: TForm1; 

implementation
 

{$R *.DFM} 

procedure
 TForm1.WMDisplayChange(var
 msg: TMessage); 
begin
 
  ShowMessage('Display settings changed!'); 
  inherited
; 
end
;

Другое по теме:

• Вырубить монитор
• Как копировать образ экрана в файл
• Как написать приложение, адекватно отображающееся на экранах с различным разрешением монитора