Первая форма имеет кнопку. Создайте другую форму с memo
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;