Procedure soll Procedure aufrufen als Pointer ?

[turboPASCAL]

Sorry, ich habe das obere Beispiel "verhauen". Liegt bestimmt am Wetter.

Richtiger wird es so:

Delphi-Quellcode:

uses
  Windows;

type
  TProcedure = procedure;  // no SysUtils


procedure MyProcNow; stdcall;
begin
  MessageBox(0, 'Hallöhle !', '*', MB_OK);
end;

procedure CallMyProc(MyProc: Pointer);
begin
  TProcedure(MyProc);
end;

BEGIN
  CallMyProc(@MyProcNow);
END.

Geht das nur über den Typecast ? Irgend wie schauts komisch aus.