Как узнать производителя видеокарты? (В OpenGL) (2 стр)

function DetectVideoCorp(const vendor: string): TVideoCorp;
var
  n : string;
  i : integer;
begin
  n:=lowercase(vendor);
  if pos('nvidia', n)>0 then Result:=vcNvidia
  else if pos('intel',n)>0 then Result:=vcIntel
  else begin
    i:=pos('ati',n);
    if (i>0) and ((i+3=length(n)+1) or (n[i+3] in [' ',#9,#13,#10])) then Result:=vcAti
    else Result:=vcOther;
  end;
end;