procedure TForm1.Button1Click(Sender: TObject);
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
   Memo1.Clear;
   lpDisplayDevice.cb := sizeof( lpDisplayDevice );
   dwFlags := 0;
   cc := 0;
   EnumDisplayDevices( nil, 0, lpDisplayDevice, dwFlags );
   Memo1.lines.add( lpDisplayDevice.DeviceString );
end;

// Или немного расширенный вариант

procedure TForm1.Button1Click(Sender: TObject);
var
  lpDisplayDevice: TDisplayDevice;
  dwFlags: DWORD;
  cc: DWORD;
begin
   Memo1.Clear;
   lpDisplayDevice.cb := sizeof( lpDisplayDevice );
   dwFlags := 0;
   cc := 0;
   while EnumDisplayDevices( nil, cc, lpDisplayDevice, dwFlags ) do
   begin
      Memo1.lines.add( lpDisplayDevice.DeviceString );
      inc( cc );
      // Так же мы увидим дополнительную информацию в lpDisplayDevice
   end;
end;