Не видно, где выделяется память для параметра sum который pchar, как это требуется хелпом по StrPCopy.

автор писал:и где здесь написано, что надо выделять память:

StrPCopy copies a Pascal-type string Source into a null-terminated string Dest. It
returns a pointer to Dest.
StrPCopy does not perform any length checking.
The destination buffer must have room for at least Length(Source)+1 characters.

Это написано в последней строчке. По-русски будет так:
Буфер назначения обязан иметь пространство по крайней мере как длина строки Source и еще один байт.

Не, все не так.

Посмотри, как возвращается имя компьютера через GetComputerName в модуле Windows и сделай также (не через возврат результата, а через параметры). Внутри DLL при этом заполняется предоставленный параметрами буфер без изменения указателя - там можно применить процедуру Move для копирования симовлов из обычного string в этот буфер pchar.

А вот как оно в дельфи вызывается:

function GetCompName:string;
var sz:dword;
begin
sz:=MAX_COMPUTERNAME_LENGTH + 1;
SetLength(result, sz);
Win32Check(GetComputerName(pchar(result),sz));
SetLength(result, sz);
end;

Для входных параметров у тебя вообще ничего не нужно (никаких StrPCopy). Преобразование pchar(var_str) отлично работает.