Ponchik, а ты откуда функу вызываешь?) её надо либо в основной блок begin end. добавлять, либо в друкую процедуру/функу типа FormCreate

__________________
Bedankt euch dafür bei euch selbst.

H_2(S^3/((z1, z2)~(exp(2pi*i/p)z1, exp(2pi*q*i/p)z2)))=Z/pZ