Como encontrar um objeto na sessão.

Boa tarde,

Como eu posso deixar essa busca rápida ( não sequencial... desse jeito o tempo de processamento é muito alto para casos onde há um número relativametne grande de objetos) ?


Define Variable objetoquequeroachar As Char no-undo.
define variable loop as Progress.Lang.Object no-undo.

Assign objetoquequeroachar = "1234".

loop = Session:First-object.
Do While valid-object(loop) :
if (loop:tostring() = objetoquequeroachar) then Do:

MESSAGE "achei"
VIEW-AS ALERT-BOX INFO BUTTONS OK.
Leave.
End.
loop = loop:Next-sibling.
End.

Obrigada,