Вот функция в библиотеке (DLL)

function strcatsi(pS :PChar;cnt:PChar):PChar;stdcall;
var
s,s1,s2:String;
begin
SetString(s1,pS,StrLen(pS));
SetString(s2,cnt,StrLen(cnt));
s:=Trim(s1)+Trim(s2);
result:=PChar(s);
end;

Вот ее объявление в скрипте

DECLARE EXTERNAL FUNCTION f_strcatsi CSTRING(80),CSTRING(25)
RETURNS CSTRING(100) FREE_IT
ENTRY_POINT "strcatsi" MODULE_NAME "Apart";

Вот ее вызов из скрипта
sToUDF=f_strcatsi(sToPass,CAST(lRecCountInPHistory AS VARCHAR(25)));

Все это работает , но:
Мне нужно 2-м параметром иметь тип INTEGER , но в этом случае в
DLL передается всякий мусор. Вот и приходится заниматься преобразованием
lRecCountInPHistory туда и обратно. Как быть ?
(про || не надо)