帮忙看下为什么下面的代码不能在腾讯通SKD里发送即时消息呢？

procedure TForm1.Button2Click(Sender: TObject);
var
  RTXObj, IMObj, PropObj: variant;
  CMD_SendIM: integer;begin
  RTXObj := CreateOleObject('RTXClient.RTXAPI');
  IMObj := RTXObj.GetObject('RTXPlugin.IM');
  CMD_SendIM := 1;  PropObj := RTXObj.GetObject('Property');  PropObj.Value('RTXUser') := 1001;
  PropObj.Value('ServerAddress') := '127.0.0.1';
  PropObj.Value('ServerPort') := 8000;
  PropObj.Value('Text') := 'this is a test!';  try
    RTXObj.Call(CMD_SendIM, PropObj);
  except
    Application.MessageBox('错误','tips',MB_OK) ;
  end;  RTXObj := UnAssigned;
  IMObj := UnAssigned;
  PropObj := UnAssigned;end;