写的一个局域网聊天程序

主要用到了，TCPserver和TCPclinet的，基本功能已经实现，可能里面有需要完善的地方，希望有兴趣的人去完善吧。

服务器里有断代码如下：

procedure TForm1.itsTalkExecute(AThread: TIdPeerThread);
begin
acceptstr: = Athread.Connection.ReadLn();
PeerIP: = AThread.Connection.Socket.Binding.PeerIP;
if  SameText(acceptstr, ' QUIT ' ) then
begin
memoSystemInfo.Lines.Add(DateTimeToStr(Now()) + '  ： ' + PeerIP + ' 退出服务器！ ' );
updateip();
end
else
begin
sendid: = Leftstr(acceptstr,AnsiPos( ' ， ' ,acceptstr) - 1 ); // 通过AnsiPos(const Substr, S: string)返回子串Substr出现在主串S中的第一个位置
memoSystemInfo.Lines.Add(DateTimeToStr(Now()) + ' ： ' + AThread.Connection.Socket.Binding.PeerIP + '  发送消息给  ' + sendid);
memoTalkInfo.Lines.Add(DateTimeToStr(Now()) + ' ： ' + AThread.Connection.Socket.Binding.PeerIP + '  微笑地说： ' + acceptstr);
Athread.Connection.WriteLn( ' 发送成功！ ' );
end;
end;