帮我看看三层结构程序中客户端执行时没响应问题(50分)

我有一个三层构架的程序,采用SOCKET连接方式,主要功能是客户端远程向中心服务器上传数据.在局域网中通过公网IP地址访问应用服务器上传数据,一切正常.但发布到客户那里运行,有时一开始就程序没响应,有时候上传部分就程序没响应.ScktSrvr.exe显示一直处在连接状态中.最初我以为是服务器没响应,于是启运另一客户那里的上传程序,又能上传,只是上传部分之后没响应.我用与服务器同在一局域网中的另一台电脑上传,能正常执行完成.不知道这现象是何故?百思不得其解.上传程序中都是通过调用存储过程实现的.
这问题在其他几个三层程序都有不同程度的出现,为了能彻底解决这个问题,我贴些代码供参考.如果还需要其他的资料,请跟贴,我会再贴上.
客户端代码:
procedure TForm1.ExecOther;
var
i:integer;
begin
Try
cdsDelStandardOther.Close;
cdsDelStandardOther.Params.ParamByName('@KidCode').AsString:=Trim(SchoolCode);
cdsDelStandardOther.Execute;
cdsDelStandardOther.Active:=False;
label1.Caption:='系统正在上传 [其他收费标准数据] ...';
with gycx1do
begin
Sql.Clear;
Sql.Add('select * from standard_other');
Close;
Open;
If Eof=False then
begin
For i:=1 to RecordCountdo
begin
Application.ProcessMessages;
cdsStandardOther.Close;
cdsStandardOther.Params.ParamByName('@KidCode').AsString:=SchoolCode;
cdsStandardOther.Params.ParamByName('@Name').AsString:=Fieldbyname('ClassName').AsString;
cdsStandardOther.Execute;
cdsStandardOther.Active:=False;
Next;
end;
end;
Close;
end;

//--------------------------------------------------------------------------
label1.Caption:='远程服务器正在处理中 ...';
_cdsStandardOther.Close;
_cdsStandardOther.Params.ParamByName('@KidCode').AsString:=Trim(SchoolCode);
_cdsStandardOther.Execute;
_cdsStandardOther.Active:=False;
Except
on e:Exceptiondo
begin
memo1.Lines.Add(Formatdatetime('hh:mm:ss',time)+' 意外错误。');
memo1.lines.add('原因：'+e.Message);
end;
end;
end;

补充一下,有没有办法在客户端将查询的数据做成一个包传到服务端,由服务器来进行逐条记录添加删除修改.