pasar for (Entry in FSMBiosTablesList) do a delphi7

[fcios]

Hola en una unit tengo

TSMBiosTableEntry = record
Header: TSmBiosTableHeader;
Index : Integer;
end;

ArrSMBiosTableEntry = Array of TSMBiosTableEntry;

FSMBiosTablesList: ArrSMBiosTableEntry;

como puedo transformar esta funcion a Delphi7

function TSMBios.GetSMBiosTableEntries(TableType: TSMBiosTablesTypes): integer;
Var
Entry : TSMBiosTableEntry;
begin
Result:=0;
for (Entry in FSMBiosTablesList) do
if Entry.Header.TableType=Byte(Ord(TableType)) then
Result:=Result+1;
end;


la unit original TSMBIOS está en http://tsmbios.googlecode.com/svn/trunk/Common/
y el proyecto en http://code.google.com/p/tsmbios/

yo solo quiero obtener la fecha el bios en Delphi7

Gracias de antemano
Fabian

[Al González]

En teoría, así debería funcionar en "cualquier" versión de Delphi, incluida la 7:
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. :)

[fcios]

Gracias anduvo perfecto :D