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

Code:

/следующий метод получает многострочные значения из реестра

//и преобразует их в 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;