TIEPortableDevices.ObjectCount
 
Declaration
property ObjectCount : Integer; (read-only)
Description
Returns the number of objects in the 
Object list.
// Navigate to folder and fill listbox with its object IDs
procedure TfrmMain.OpenFolder(const sFolderID : WideString);
var
  I: Integer;
begin
  fPortableDevices.ActiveFolderID := sFolderID;
  lbxObjects.Items.Clear;
  for I := 0 to fPortableDevices.ObjectCount - 1 do
    lbxObjects.Items.Add( fPortableDevices.Objects[ I ].ID );
end;