library MyDll;

uses Windows;

var buf:string;

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

exports
  ReceiveString;

begin
end.