URGENTE - Como faço para aterar a resolução

Bem é o seguinte, estou com um probleminha... quero fazer a minha aplicação alterar a resolução do monitor... MAS AUTOMATICAMENTE

estou usando esses código abaixo, ele me fornece as resoluções que a placas de video suporta e com isso eu tenho que escolher uma e depois clicar no botão, queria que a aplicação fizesse isso por mim..alguem saberia como :


procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
DevMode : TDevMode;
begin
i := 0;
while EnumDisplaySettings(nil,i,Devmode) do begin
with Devmode do
ListBox1.Items.Add(Format(´¬dx¬d ¬d Colors´,
[dmPelsWidth,dmPelsHeight, 1 shl dmBitsperPel]));
Inc(i);
end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
DevMode : TDevMode;
begin
EnumDisplaySettings(nil,Listbox1.ItemIndex,Devmode);
ChangeDisplaySettings(DevMode,0);
end;


OBS: e depois que fechar a aplicação teria que voltar a resolução anterior....

muito obrigado desde já....