[Alegun]

А записана как

Код:

procedure SetValue;
begin
  GlobalInt := int;
end;

З.Ы. Попробуйте у GlobalInt = 0 убрать - она и так нулевая, т.к. глобальная