客户端的timer.ontimer的重要改进（悄悄话和说话对象的功能都在这里实现）：
//请对比上篇文章的同名实现
procedure tclientmainform.timer1timer(sender: tobject);
var
tempstrings:tstrings;
i:integer;
tostartpos,toendpos:integer;
fromwho,towho,tempname:string;
begin
try
if chatserver.server.readready(roomid)=1 then
begin
tempstrings:=tstringlist.create;
setolestrings(tempstrings,chatserver.server.readfrom(roomid));
if freadstartpos>19 then
if (fclearbuffertag=0-chatserver.server.testclearbuffertag(roomid)) then
begin
freadstartpos:=0;
fclearbuffertag:=chatserver.server.testclearbuffertag(roomid);
end;
