Cambios de Resolucion

[Azra]

Espero alguien pueda ayudarme un poco con esto
soy nuevo en la programacion con delphim estoy trabajando en un programa e inicialmente necesitaba se ejecutara en 800 x 600, cosa que pude implementar poniendo esl siguiente codigo:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
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;

 begin
   NuevaRes(800,600);
 end;

end.

como ven, al entrar la aplicacion pasa la pantalla a 800 x 600, ahora mi problema radica, en como regresarlo a su configuracion original, despues de cerrar mi aplicacion

por cierto tambien necesito alguna idea de como agregar una contraseña al inicio de la aplicacion

gracias de antemano

//Lo edite para que Azra aprenda como debe colocar los Tag's que comenta Neftali mas abajo