En teoría, así debería funcionar en "cualquier" versión de Delphi, incluida la 7:
Código Delphi
[-]Function TSMBios.GetSMBiosTableEntries (TableType :TSMBiosTablesTypes)
:Integer;
Var
I :Integer;
Begin
Result := 0;
For I := 0 To High (FSMBiosTablesList) Do
If FSMBiosTablesList [i].Header.TableType = Byte (TableType) Then
Inc (Result);
End;
Saludos.