var: param1: ^integer; begin ... param1: = objaddr+1; //так тоже должно прокатить, но главное идею понял