В делфийском модуле должна быть функция, возвращающая pchar.
GetMem/FreeMem/NEW/Dispose/String нельзя использовать.

RESULT:='1234';

А в Обероне скопируйте переданную строку в массив символов.
Если вдруг нужно передать переменную типа string из делфи в оберон, то сделайте её глобальной, возвращайте pchar(s).