TStorage.FindByClass

function FindByClass(stgClass: TStorageClass): TStorage;