Динамический массив процедур

[ZaRDaK]

Вобщем мне нужен динам. масив функций\процедур.
Вот код, который я юзаю:

  type
   TProc = procedure(i: Integer);

var
  Form1: TForm1;
  A : array of Tproc;
  i : integer;

procedure proc(i: integer);
begin
Form1.Memo1.Lines.Add(Inttostr(i));
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetLength(A , 10);
for i := 0 to Length(A) - 1 do begin
A[i] := proc;
Form1.Memo1.Lines.Add(Format('%p' , [Addr(A[i])]));
end;
for i := 0 to Length(A) - 1 do begin
A[i](i);
end;
end;

end.

Но каждой процедуре в массиве назначается одинаковый адрес, а мне надо, чтобы каждая процедура вызывалась из нового адреса памяти. Т.е. скопировать память процедуры 9 (в данном случае) раз.
Пытался юзать New(), не вышло. Помогите кодом, или хотя бы примером по теме с New().

[Пепел Феникса]

а зачем копировать одно и тоже?
смысл сего?
и так есть параметр функции.

[ZaRDaK]

Мне нужно распределить нагрузку на пямять. Когда , допустим, 500 потоков вызывают функцию из одного участка памяти, это как по мне не хорошо.

[Пепел Феникса]

это нормально вообще то.
так как в вашем случае лишь увеличится код.

если уж сильно надо, то пишите 10 процедур.

[ZaRDaK]

Ну, число 10 в коде - просто пример.
Это чтисло может вариироватся от 1 до 5000.
Так что фиксированное кол-во процедур не подойдёт, так как массив динамический.
И я всё-таки сомневаюсь, что это нормально.

[Пепел Феникса]

И я всё-таки сомневаюсь, что это нормально.

а дублировать код по тысячу раз это нормально?

как раз таки нормально что если процедура нужная то используется столько сколько надо.
ведь в ней же используется(с вашего примера) Memo.Lines.Add, давайте тоже растиражируем.
АПИ используется тоже по многу раз, тоже растиражируем, да?

[ZaRDaK]

Не в примере я работаю с сетью. Динамический массив из компонентов - тиражируется. Сокеты - тиражируются, с API я делать ничего не буду, так как оно расчитано на одновременный вызов несколькими процессами.
Я попрошу не критиковать моё решение.

[Пепел Феникса]

тиражируются компоненты, но не методы, то есть данные но не код.
сокеты тоже данные.

[ZaRDaK]

Сокет - это обьект.
Возможно буду не точен с примером: UNIX'овые внутреОСевые сокеты, которые представляют собой файл.
>> Я попрошу не критиковать моё решение. Да, на весь этот флеймвар я отвечать скорее всего не буду

[Пепел Феникса]

я вам ответил решение, либо изменение кода, что вам еще сложнее сделать будет.

Сокет - это обьект.

а обьект у нас не хранит данные?