高分求教indy传送文件的问题

[singun]

我用idTcpServer和idTcpClient编了一个文件传送的程序。有几个问题，望高人回答：
1、在客户端接收时，如果文件较大在执行这个语句时有一段时间（大约几秒）鼠标指针都动不了,然后程序才有响应。
ReadStream(AStream, -1, True);//AStream：TFileStream
2、在onworkbegin事件中写代码
ProgressBar1.Visible:=True;
ProgressBar1.Max :=AWorkCountMax;
控制进度条以显示传送进度，但是AWorkCountMax总是为0
3、同时传送多个文件在客户端该怎么写??
最好有例程（indy自带的没有这样的）
分不够再加！！

[hcjhcj]

请问我在memo加Tstrings的时候老是出现“list index out fo bound(1)”错误。这个问题怎么解决啊？问题出在哪儿啊？

[singun]

up

[singun]

hcjhcj(冒险王) ，你怎么在这里提问呢。搞得我既不能删贴也不能结贴！！！
csdn的规则的要改一改了！