Передача в параметр процедуры. Робота с параметром

[Delphi_ProGer]

Здраствуйте! Извините, что задаю наверное глупый вопрос...но...общем...есть допустим процедура

AddTask(ThreadProc: pointer);

Передавать умею, а вот как напрмер в теле процедуры визвать эту процедуру которая передана в параметре?

[Delphi_ProGer]

Уже решил проблему =)

program Project1;

{$APPTYPE CONSOLE}
type
  TProc = procedure(Param: integer);

Procedure A(Param: integer);
begin
  Writeln('Ok.', Param);
  Readln;
end;

Procedure ThreadProc(Proc: TProc);
begin
  Proc(45);
end;

begin
  ThreadProc(A);
end.

Но здесь я создал процедурный тип, а вот как сделать с помощью указателя?