紧急求救！！！！

Question

小地现在用socket写程序。
服务断的返回是：serversocket1.Socket.Connections[id].SendText('*'+datetimetostr(now)+'==>>-'+'由于该用户投诉，手机号'+user1+'的短信发送被禁止,请删除该注册用户！');客户端的发送部分程序是：      if fm_byfs<>nil then
      if not fm_byfs.bsSkinButton1.Enabled then
      begin
        if fm_byfs.bsSkinListBox1.Items.Count>100 then
        begin
          for i:=0 to 99 do
          begin
            with dd.fs do
            begin
              close;
              sql.Clear;
              sql.Add('insert into sm_send values(:a,:b,:c,:d)');
              parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings[i];
              parambyname('b').AsString:=fm_byfs.SUIMemo1.Text;
              parambyname('c').AsDateTime:=now;
              parambyname('d').AsString:='包月';
              execsql;
            end;
          end;
          for i:=99 downto 0 do
          begin
            fm_byfs.bsSkinListBox1.Items.Delete(i);
          end;
        end else
        begin
        if fm_byfs.bsSkinListBox1.Items.Count>0 then
        begin
          for i:=0 to fm_byfs.bsSkinListBox1.Items.Count-1 do
          begin
            with dd.fs do
            begin
              close;
              sql.Clear;
              sql.Add('insert into sm_send values(:a,:b,:c,:d)');
              parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings[i];
              parambyname('b').AsString:=fm_byfs.SUIMemo1.Text;
              parambyname('c').AsDateTime:=now;
              parambyname('d').AsString:='包月';
              execsql;
            end;
          end;
          fm_byfs.bsSkinListBox1.Clear;
        end;
        accessed:=true;
        end;
      end;
    end;
  end;现在的需求是将返回的那个手机号，不写进客户端的数据库中，希望高手给出原代码！！！

Answer 1

>>服务断的返回是：serversocket1.Socket.Connections[id].SendText('*'+datetimetostr(now)
>>+'==>>-'+'由于该用户投诉，手机号'+user1+'的短信发送被禁止,请删除该注册用户！');
var i, j: integer;
   s, s1: string;
begin
 s := '*'+datetimetostr(now)
>>+'==>>-'+'由于该用户投诉，手机号'+user1+'的短信发送被禁止,请删除该注册用户！';
 
 i := pos('投诉，手机号', s);
 j := pos('的短信发', s);
 s1 := copy(s, i+1, j-i-1);
 showMessage(s1);