#pas
var buf:string;
...
function ReceiveString(p:pchar):PChar; stdcall; export; 
begin
   buf := 'Receive text: ' + p + #0;
   Result := PChar(buf);
end;

#pas
var s:string;
...
s := ReceiveString('some text');
// use s here