как вариант

Код:
var retain
  x : ....

var //не ретайн
  init : bool;

где-то в слейве. Пофиг - ретайн там или не ратайн...
  _x : ....

----------------
if not init then
  init := true;
  _x := x; 
end_if
x := _x;

... //работа с x