mudar a resolusão do vídeo para 800x600

Eu utilizo a seguinte function:

// Mudar resolução do video
function SetDisplay(largura, altura : integer) : Boolean;
var
DevMode : TDeviceMode;
begin
EnumDisplaySettings( nil, 0, DevMode );
DevMode.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT;
DevMode.dmPelsWidth := largura;
DevMode.dmPelsHeight := altura;
Result := ChangeDisplaySettings( DevMode, CDS_UPDATEREGISTRY ) = DISP_CHANGE_SUCCESSFUL;
end;


forma de uso:
utilizo duas variaveis onde gardam as coordenadas atuais


{ **** DEFINIÇAO DA RESOLUÇAO QUE O SISTEMA TRABALHARA ****}
if (Screen.Width <> 640) and (Screen.Height <> 480) then
begin
wPix := Screen.Width;
hPix := Screen.Height;
SetDisplay( 640, 480 ); // aqui coloca-se a resolução desejada
end;


Espero ter ajudado.