[Страдалецъ]

Это не наш путь - слишком просто. Лучше для каждой переменной написать функцию инициализатор.

Код:

Var
     i: Integer;

procedure I_Init;
begin
 i := 0;
end;

begin
 I_Init;
end.