[poli-smen]

Сообщение от kast2k

Да, я помню о соглашении.
стоит _cdecl

А здесь-то не стоит:

Код:

type
Tcalc_double = function ( k: integer ): integer;

Должно быть так:

Код:

type
Tcalc_double = function ( k: integer ): integer; cdecl;