[NIch]

Какой еще код???
Если просто переменная, то...

Код:

var
 i : integer;
 n : integer;
begin
 for i := 0 to 1000 do
  n := i;
end;

Но что то слишком просто, видимо, что то я не догнал)))