unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.DFM}
procedure GetVideoModes(ModeList: TStrings);
var
  i, j: integer;
  MoreModes,
  AddMode: boolean;
  dm: TDeviceMode;
  Mode: string;
begin
  ModeList.Clear;
  MoreModes := True;
  Mode := '';
  i := 0;
  while MoreModes do
    begin
      MoreModes := EnumDisplaySettings(nil, i, dm);
      Mode := IntToStr(dm.dmBitsPerPel)   ' Bits Per Pixel '  
              IntToStr(dm.dmPelsWidth)   ' x '  
              IntToStr(dm.dmPelsHeight);
      AddMode := True;
      { Check to make sure this mode is not already in the list. }
      for j := 0 to ModeList.Count-1 do
        if Mode = ModeList[j] then
          AddMode := False;
      if AddMode then
        ModeList.Add(Mode);
      Inc(i);
    end;
end;    procedure TForm1.Button1Click(Sender: TObject);
begin
GetVideoModes(memo1.lines);
end;    end.