TStorage.FindByClassAndName

function FindByClassAndName(stgClass: TStorageClass; const objName: string): TStorage;