[Delphi] zmiana rozdzielczości ekranu

W jaki sposób w Delphi odczytać jaka jest rozdzielczość ekranu i jak tą rozdzielczość zmienić ?

Wykorzystuje się do tego celu funkcję ChangeDisplaySettings

procedure TForm1.Button1Click(Sender:TObject);
var Mode:TDeviceMode;
S:String;
begin
with Mode do
begin
dmSize:=SizeOf(Mode);
dmBitsPerPel:=16;
dmPelsWidth:=800;
dmPelsHeight:=600;
dmFields:=DM_PELSWIDTH+DM_PELSHEIGHT;
end;
case ChangeDisplaySettings(Mode,0) of
DISP_CHANGE_SUCCESSFUL='Operacja przebiegła pomyślnie';
DISP_CHANGE_RESTART='Aby zmiany odniosły skutek należy zrestartować systi';
DISP_CHANGE_BADFLAGS='Błędne pole dmFields';
DISP_CHANGE_FAILED='Błąd podczas ustawiania trybu';
DISP_CHANGE_BADMODE='Ten tryb nie jest obsługiwany';
DISP_CHANGE_NOTUPDATED='Rejestr nie został zaktualizowany';
else S:='Nieznany kod wyniku';
end;
ShowMessage(S);
end;

To się nazywa fachowa pomoc - czytelnie estetycznie z objaśnieniami.

Dzięki !