Jak wykryć rodzaj karty graficznej

Nie jestem pewien czy to działa na 100% (u mnie działa):

uses Registry;

var
 reg: TRegistry;
begin
  reg := TRegistry.Create;
  try
    reg.RootKey := HKEY_LOCAL_MACHINE;
    reg.OpenKey('Enum\\PCI\\VEN_10DE&DEV_002D&SUBSYS_00000000&REV_15\\000800', false);
    Label1.Caption := reg.ReadString('DeviceDesc');
  finally
     reg.Free;
  end;