TFree = procedure (AppData, Block: Pointer);

(AppData, Block: Pointer) ( TFree)();