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;

/следующий метод получает многострочные значения из реестра
//и преобразует их в TStringlist
function ReadMultirowKey(reg: TRegistry; Key: string): TStrings;
const bufsize = 100;
var
 i: integer;
 s1: string;
 sl: TStringList;
 bin: array[1..bufsize] of char;
begin
 try
  result := nil;
  sl := nil;
  sl := TStringList.Create;
  if not Assigned(reg) then
  raise Exception.Create('TRegistry object not assigned.');
  FillChar(bin,bufsize,#0);
  reg.ReadBinaryData(Key,bin,bufsize);
  i := 1;
  s1 := '';
  while i < bufsize do
  begin
  if ord(bin[i]) >= 32 then
  s1 := s1 + bin[i]
  else
  begin
  if Length(s1) > 0 then
  begin
  sl.Add(s1);
  s1 := '';
  end;
  end;
  inc(i);
  end;
  result := sl;
 except
  sl.Free;
  raise;
 end;
end;