Ссылка на переменную

[t2skler]

В общем есть процедура вида:
procedure Numbers(Variable1, Variable2: Integer); //т.е. мне нужно передать ей имена глобальных переменных I, N: Integer;
begin
Inc(Variable1);
Inc(Variable2);
end;

Вызываю так:
Numbers(I, N)

Я понимаю, что он наращивает свои процедурные переменные и когда я вызваю процедуру он передаёт ей значения переменных I, N, а я хочу, чтобы он передавал имена переменых (как бэ ссылки на них) и уже в процедуре он их наращивал, а не переменные процедуры. Подскажите как мне это осуществить.

[GunSmoker]

procedure Numbers(var Variable1, Variable2: Integer);

[t2skler]

Сообщение от GunSmoker

procedure Numbers(var Variable1, Variable2: Integer);

Всегда говорил, что всё гениальное - кэперски! Большое спасибо!

[ImmortalAlexSan]

ещё вот так можно:

procedure proc (a,b:PInteger);
begin
  inc(a^); inc(b^);
end;

proc (@i,@n);

По скорости оба одинокавы. 125 - 124 - 109 на цикл в 30000000 поторений с вызовом процедуры.

[veniside]

это типо если клавиша V не рабоатет? )

[GunSmoker]

Сообщение от ImmortalAlexSan

По скорости оба одинокавы.

Особенно если учитывать, что оба варианта генерируют один и тот же машинный код.