Delphi - Detectar la resolucion de pantalla

Hola, quisiera saber como puedo detectar en delphi la resolucion de pantalla, y es posible que la aplicacion sea capaz de cambiarla...Por ejemplo quiero que me mi aplicacion detecte cual es la resolucion actual y si esa no es la que debe estar puesta se cambie automaticamente....

Para detectar cual es la resolucion actual del monitor
W := Screen.Width;
H := Screen.Height;
W, H: Integer;

con esta funcion puedes cambiar la resolucion de la pantalla
function NuevaRes(XRes, YRes: DWord): Integer;
var
lpDevMode : TDeviceMode;
begin
EnumDisplaySettings (nil, 0, lpDevMode);
lpDevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
lpDevMode.dmPelsWidth := XRes;
lpDevMode.dmPelsHeight := YRes;
NuevaRes := ChangeDisplaySettings (lpDevMode, 0)
end;

ejemplo de llamada NuevaRes(800, 600);
espero que te sirva