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

Código Delphi [-]
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