Problemas con UDF

[Sinaloense]

Tienes un error con los parametros, las UDF solo aceptan parametros por referencia y no acepta strings, tienes qe usar pchar en su lugar.

function StrMid(pCadena : String; iIndex : Integer ; iNum : integer) : ShortString; cdecl; export;

sería:

function StrMid(pCadena : pchar; var iIndex : Integer ; var iNum : integer) : pchar; cdecl; export;