1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

Procedure TForm1.Button1Click(Sender: TObject);
Var
  Loop : Integer;
  DevMode : TDevMode;
Begin
  Loop := 0;
  While EnumDisplaySettings (nil, Loop, DevMode) Do
  Begin
    With Devmode Do
      ListBox1.Items.Add (
          Format (
              '%d x %d; %d Farben',
              [dmPelsWidth,dmPelsHeight,Int64(1) shl dmBitsperPel]
            )
        );
      Inc (Loop);
   End;
End;