| ihIns | input | handle | |
| oiInsID | output | integer |
find first tComponentPool where
tComponentPool.thIns = ihIns and
tComponentPool.tlIsInUse and
tComponentPool.tlIsInMemory no-error.
if available tComponentPool
then assign oiInsID = tComponentPool.tiInsID.