  CM_ADDNEWUSER         = 2002;//Ϣͷ
  UserEntry: TUserEntry;//
  UserAddEntry: TUserEntryAdd;//
  ('ʺ '+UserEntry.sAccount);
  (' '+UserEntry.sPassword);
  (' '+UserEntry.sUserName);
  ('֤'+UserEntry.sSSNo);
  ('绰 '+UserEntry.sPhone);
  ('1 '+UserEntry.sQuiz);
  ('ش1 '+UserEntry.sAnswer);
  ('  '+UserEntry.sEMail);
  ('2 '+UserAddEntry.sQuiz2);
  ('ش2 '+UserAddEntry.sAnswer2);
  (' '+UserAddEntry.sBirthDay);
  ('绰 '+UserAddEntry.sMobilePhone);

  Msg := MakeDefaultMsg(CM_ADDNEWUSER, 0, 0, 0, 0);
  SendCSocket(EncodeMessage(Msg) + EncodeBuffer(@ue, SizeOf(TUserEntry)) + EncodeBuffer(@ua, SizeOf(TUserEntryAdd)));
ֶμӵҪֶν

ؽ 2Ϣ 

עɹ
SM_NEWID_SUCCESS      = 504;

עʧ
SM_NEWID_FAIL = 505;//עĽ! ѱʹ|ʺֹʹ| ʺŴʧܣո񡢼Ƿַ
                            Msg.Recog          0                       -2                 end