Resolucion de pantalla

[bulc]

He probado el código que se sugiere y me encuentro un error en la línea:

Código Delphi [-]
  a := EnumDisplaySettings(nil, I, DevChg);

He puesto en OnCreate:

Código Delphi [-]
Xwindow := GetSystemMetrics(0);
Ywindow := GetSystemMetrics(1);
If (Xwindow <> 800) Or (Ywindow <> 600) Then CambiaResolucion(800, 600);

¿Alguien sabe cómo reconducirlo?
Saludos.
bulc