紧急问题望高手帖出代码！！！！ ( 积分: 20 )

小地现在用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 valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
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 valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
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;

现在的需求是将返回的那个手机号，不写进客户端的数据库中，希望高手给出原代码！！！

小地现在用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 valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
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 valuesa,:b,:c,:d)');
parambyname('a').AsString:=fm_byfs.bsSkinListBox1.Items.Strings;
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;

现在的需求是将返回的那个手机号，不写进客户端的数据库中，希望高手给出原代码！！！