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