delphi 调用webservice解决思路

delphi 调用webservice
最近用了delphi调用webservice，主要代码如下：
procedure sendMsgThread;
var
WSResult,row: Integer;
  WSIServer: MessageService;//webservice对象
  m,msgcount:integer;
   mytime:TDateTime;
  submittime:string;

begin
     mytime:=Now;
    DateTimeToString(submitTime,'yyyy-MM-dd HH:mm:ss',mytime);
     WSIServer:= GetMessageService(true,'',nil);   //获取webservice
     WSResult:= WSIServer.sendMessage(GetUserName(),GetUserPass(),tphoneString,tcontent,submitTime,tmsgType);   //调用webservice里面的方法
     if WSResult = -3 then
     begin
            Application.MessageBox(PChar(发送失败),'发送提示',MB_OK);
     end
     else if WSResult =0 then
  begin
    Application.MessageBox(PChar('发送成功'),'发送提示',MB_OK);
  end;
 end; 

以上程序用了一段时间，暂时没发现什么问题，不过在这里有就个问题想请教大虾一下：
1 当我程序运行结束的时候，webservice对象 WSIServer要不要释放掉，如果要，要怎么释放？
2 以上程序只是实现了一次的提交，但我需要重复提交多次的时候，是不是只需要循环地调
用这个方法：WSResult:= WSIServer.sendMessage(GetUserName(),GetUserPass(),tphoneString,tcontent,submitTime,tmsgType); 还是需要做什么处理？   
请大侠们帮忙看下，谢谢！
[解决办法]
循环调用。就是调用一个函数的方法