Как определить видеокарту

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