Как получить информацию о BIOS в Windows NT?

Code:

procedure TBIOSInfo.GetRegInfoWinNT;

var

Registryv       : TRegistry;

RegPath         : string;

sl              : TStrings;

begin

Params.Clear;

RegPath := '\HARDWARE\DESCRIPTION\System';

registryv:=tregistry.Create;

registryv.rootkey:=HKEY_LOCAL_MACHINE;

sl := nil;

try

   registryv.Openkey(RegPath,false);

   ShowMessage('BIOS Date: '+RegistryV.ReadString('SystemBiosDate'));

   sl := ReadMultirowKey(RegistryV,'SystemBiosVersion');

   ShowMessage('BIOS Version: '+sl.Text);

except

end;

Registryv.Free;

if Assigned(sl) then sl.Free;

end;