[HolyDel]

Вот так работает:

Function EntityExists(Exists)
Local P,Entity
P = CreatePivot()
Entity = P
While LastEntity(Entity) <> 0
Entity = LastEntity(Entity)
Wend

While NextEntity(Entity) <> 0
Entity = NextEntity(Entity)
If Entity = Exists Then
FreeEntity P
Return True
EndIf
Wend

FreeEntity P
Return False
End Function

p.s. нужен blitz3d.dll