TStorageManager.FindObjectByClass

function FindObjectByClass(storageClass: TStorageClass; parent: TStorage = nil): TStorage;