Передача процедуры в процедуру через Pointer

function timeSetEvent(uDelay, uResolution: UINT; lpTimeProc: Pointer; dwUser: DWORD; 
fuEvent: UINT): UINT; stdcall; external 'winmm.dll';

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

type
  TProc = procedure;
  TProcWithParams = procedure(params: array of const);

var
  Form1: TForm1;

implementation

{$R *.dfm}

// процедура без параметров

procedure Proc;
begin
  ShowMessage('Proc is called!');
end;

procedure MainProc1(ProcPtr: Pointer);
begin
  // просто так вызвать указатель не получилось, его нужно привести к типу процедуры,
  // как сделано в MainProc3
  //ProcPtr^;
end;

procedure MainProc2(Proc: TProc);
begin
  Proc;
end;

procedure MainProc3(ProcPtr: Pointer);
begin
  TProc(ProcPtr);
end;

// процедура с параметрами

procedure ProcWithParams(params: array of const);
begin
  ShowMessage(Format('Params: p1=%d, p2=%d, p3=%s', params));
end;

procedure MainProc4(ProcWithParams: TProcWithParams; params: array of const);
begin
  ProcWithParams(params);
end;

procedure MainProc5(ProcWithParamsPtr: Pointer; params: array of const);
begin
  TProcWithParams(ProcWithParamsPtr)(params);
end;

// вызов процедур

procedure TForm1.Button1Click(Sender: TObject);
begin
  MainProc1(@Proc); // не работает
  MainProc2(Proc);
  MainProc3(@Proc);

  MainProc4(ProcWithParams, [1, 2, '123']);
  MainProc5(@ProcWithParams, [5, 67, 'qweqwe']);
end;

end.