Передача одной процедуры другой в качестве входящего параметра

[ProRockX]

Добрый день. Помогите, пожалуйста, решить проблему.

Мне необходимо, чтоб переданная в качестве параметра процедура исполнялась в теле другой процедуры.

type 
Tproc : procedure;
...


procedure TfmMain.acEditExecute(Sender: TObject);
begin
  pr_WorkWithManyRecords(@pr_EditOneObject)
end;

procedure TfmMain.pr_WorkWithManyRecords(start_procedure: pointer);
begin
   TProc(@start_procedure); //Пытаюсь запустить процу, но получаю: Error, Variable Required.
end;

Подскажите, пожалуйста, где я ошибся.

[Stilet]

procedure TfmMain.acEditExecute(Sender: TObject);
begin
  pr_WorkWithManyRecords(@pr_EditOneObject)
end;

procedure TfmMain.pr_WorkWithManyRecords(start_procedure: TProc);
begin
   start_procedure(); 
end;

Если не ошибаюсь.
А вообще наверное стоит по-современному делать: События назначить.

[min@y™]

Можно и пойнтер привести к нормальному типу.

type 
Tproc : procedure;
...


procedure TfmMain.acEditExecute(Sender: TObject);
begin
  pr_WorkWithManyRecords(@pr_EditOneObject)
end;

procedure TfmMain.pr_WorkWithManyRecords(start_procedure: pointer);
var
  proc: TProc;
begin
   proc:= TProc(start_procedure);  // без @, это ж уже указатель!
   proc(); // вызов
end;

ВНИМАНИЕ!
УВАГА!!
АХТУНГ!!!
АТТЕНШН!!!!
Shit-code detected!
Код не отлаживал. Писал на заборе!