C#调用Delphi的Dll传值

//----------------------C#-------------------//
        private const string dll = "iihFounder.dll";
        [DllImport(dll, EntryPoint = "FounderRequestData", SetLastError = true,
              CharSet = CharSet.Ansi/Unicode, ExactSpelling = true,
               CallingConvention = CallingConvention.StdCall)]
        public static extern int FounderRequestData(String userName, String businessType, String userIP, String requestData, out String responseData);

//----------------------Delphi-------------------//

function FounderRequestData(const userName: PChar;?const businessType: PChar; const userIP: PChar;?const requestData: PChar; out responseData: PChar): Integer; stdcall;
var
  pinput:PChar;
begin
  pinput:= PChar(VarToStr(back));
  if pinput = nil then Exit;
  S := Format('%s',[pinput]);
  Move(S[1], responseData^, Min(Size, Length(S)+1));
end;