TSomeFunc = PROCEDURE (i: integer; b: boolean); STDCALL; VAR f: TSomeFunc; f:=TSomeFunc($401000); f(5, TRUE);