Trocar resolução de video automatico

Adicione a Private:

Private

OLD_WIDTH,OLD_HEIGHT :Integer;

No Evento OnCreate do Form principal coloque o código abaixo:

OLD_WIDTH := Monitor.Width;
OLD_HEIGHT := Monitor.Height;

if (OLD_WIDTH>=1024)and(OLD_HEIGHT>=768)then
begin
SetScreenResolution(800, 600);
end;

O comando acima esta programado para: Se a resolução for igual ou maior do 1024 por 768, a resoluçâo vai passar para 800x600

No Evento OnClose do Form principal coloque o Códigoi:
Quote

SetScreenResolution(OLD_WIDTH , OLD_HEIGHT);

O resoluçâo do video vai voltar como era antes.