Savoir lorsque la résolution de l'écran est changée

...
type
...
private
procedure WMDisplayChange( var Message:TMessage);
message WM_DISPLAYCHANGE;
public
...
end;

...

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.WMDisplayChange( var Message: TMessage);
begin
ShowMessage('La résolution a été changée !');
inherited;
end;