//SMS
  if IsPhoen(edtTEL.Text) then
    begin
      SysconfigRun;
      if Sysconfig.ReadBool('SMS','AddingSend',False) then
        begin
          if Sysconfig.ReadInteger('SMS','AddingMode',0) = 0 then
            begin
               if MessageBox(Handle, PChar('是否发送短信?                                         '),
               PChar('短信'), MB_ICONINFORMATION or MB_YESNO or MB_DEFBUTTON1) = IDYES then
                 begin
                   goto GoToS;
                 end;
            end
          else
            begin
              GoToS :
              Params := TStringList.Create;
              IDHTTP1 := TIdHTTP.Create(nil);
              reg := TPerlRegEx.Create;
              Params.Add('ac='+trim(Sysconfig.ReadString('SMS','SMSA','')));
              Params.Add('authkey='+trim(Sysconfig.ReadString('SMS','SMSP','')));
              Params.Add('m='+trim(edtTEL.Text));
              Params.Add('action=sendOnce');
              Params.Add('cgid='+trim(Sysconfig.ReadString('SMS','CGID','')));

              Params.Add('csid='+trim(Sysconfig.ReadString('SMS','CSID','')));
              Params.Add('c='+Utf8ToAnsi(UTF8Encode(Matching(edtTID.Text,edtUserName.Text,edt2.Text,trim(Sysconfig.ReadString('SMS','AddingInfo',DateTimeToStr(Now)))))));
              if Sysconfig.ReadString('SMS','AddingInfo','') <> '' then
                begin
                  WriteLog(IDHTTP1.Post('http://smsapi.c123.cn/OpenPlatform/OpenApi', Params));
                end;
              FreeAndNil(IDHTTP1);
              FreeAndNil(Params);
              FreeAndNil(reg);
            end;
        end;
      Sysconfig.Destroy;
    end;