[fpc-pascal] Delphi mode

[Carsten Bager]

Is there another way writing this without activating Delphi mode.

Carsten



type
  tKeypressed=function:boolean;

Var
pKeypressed:tKeypressed;


Function Keypressed:boolean;

Implementation

Function Keypressed:boolean;
Begin
  if pointer(pKeypressed)<>nil then
    Keypressed:=pKeypressed
  else Keypressed:=false;
End;