I rewritten my test script in VectorScript. It works !!!. Why in Python it is difficult to do this in the simple way? What should I know to do the same in Python?
PROCEDURE Test;
VAR
h : HANDLE;
x, y, z : REAL;
ObjType : INTEGER;
FUNCTION CheckObjCallback(h : HANDLE; px, py : REAL) : BOOLEAN;
BEGIN
CheckObjCallback := FALSE;
IF GetType(h) = 3 THEN
CheckObjCallback := TRUE;
END;
BEGIN
REPEAT
TrackObject( CheckObjCallback, h, x, y, z);
SysBeep;
UNTIL h = NIL
END;
RUN( Test );