调用webservice 需要输入账号和密码

[水向东流时光怎么偷]

var
//请求
Req:request;
ReqA:MT_OTMS2DX_Record_Input;
//转换日期
DDate:TXSDate;
SDate: TDateTime;
WYear, WMonth, WDay: Word;
//请求
SoapA:MI_OTMS_REQUEST;
UsHTTPRIO:THTTPRIO;
//响应
res:row;
resA:MT_DX_OTMS_READ;
begin
  SDate := Now;
  DecodeDate(SDate, WYear, WMonth, WDay);

  DDate := TXSDate.Create;
  DDate.Day := 1;

  ShowMessage(IntToStr(WDay));

  Req := request.Create;
  Req.DOC_DATE := DDate;
  Req.YUNDANHAO := '';
  setlength(Reqa,1);
  Reqa[0] := Req;
  //创建一个HTTPRIO 用于放账号和密码

  UsHTTPRIO:=THTTPRIO.Create(nil);

  UsHTTPRIO.HTTPWebNode.UserName:='USERNAME';
  UsHTTPRIO.HTTPWebNode.Password:='PASSWORD';



  SoapA:=GetMI_OTMS_REQUEST(True,StrUrl,HTTPRIO1);
  //创建响应的
  res:=row.Create;
  SoapA.MI_OTMS_REQUEST(Reqa);

上面放账号和密码不行,还是提示需要输入账号和密码


输入账号和密码后进提示:Interface not supported.

问题:
1.怎么能在代码中设置账号和密码,不在在弹窗出来;
2.Interface not supported.是因为账号和密码登录问题吗?