function DOZOpen(Str: PChar):Boolean; StdCall;

Сделал, как Вы сказали.
Строка передается, но только в функцию, а из нее нет.

и так: Str:='slkdfj';
и так: Str:=NewStr('slkdfj');

Пробовал var
function DOZOpen(var Str: PChar):Boolean; StdCall;

подключил ShereMem - ни фига..