Ну объявите еще одну функцию
function SetX(value)
x := value;
Это при условии что объекты вызываются один из другого. А иначе эти функции надо писать на кодеюните с SingleInstance = Yes А как это делать описано в ссылках, которые, в частности, UGT запостил здесь же .