>>325さん、レスありがとうございます。
VC側を
typedef BOOL (__stdcall *ANFUNCNAME)(
LPCTSTR &,
LPCTSTR);
DLLを
function AnFunctionName( var
sHost : PChar;
sUserID : PChar): bool; stdcall;

としたところ、呼び出しはうまくいったようです。
ただ、
FreeLibrary( Handle );
を実行するとwincore.cpp内でエラーが発生するなど、
まだ問題があるようです。
もう少し研究してみます。