三层，客户端调用服务端函数，返回字符型可以吗？

function TsjkServer.login(const username, password: WideString): integer;
var
  ret:string;
  qm: WideString;
begin
  with ADOStoredProc1 do
  begin
  ProcedureName := 'User_Login2';
  Close;
  Parameters.Clear;
  Parameters.Refresh;
  Parameters.ParamByName('@bh').Value := username;
  parameters.ParamByName('@password').Value := password;
  parameters.ParamByName('@record').Value := '1';
  parameters.ParamByName('@qm').Value := '';
  ExecProc;
  ret:= Parameters.ParamByName('@record').Value;
  qm:=Parameters.ParamByName('@qm').Value;
   
  if ret='1' then
  Result := 1
  else
  Result := 0;  
  end;
end;

这个只能返回integer，
客户端调用：result:=DCOMConnection1.AppServer.login1(Edit1.Text,Edit2.Text);
那如果我要让客户端得到 qm:=Parameters.ParamByName('@qm').Value; 这个字符型的值怎么做呢？

没太明白啊，你的这个函数定义的就是返回一个integer，你现在又要求返回字符串？何意？这个函数不能改吗？