用indy9控件写聊天程序，信息发送问题

我是初学者，我用idtcpclient和idtcpserver写客户端和服务器，用writeln和readln进行客户端和服务器的通信。客户端向服务器发的信息，服务器能接收，服务器向客户端发的消息，客户端就收不到。这是为什么？还有所有客户端都是相同的，怎么实现与固定的客户端通信？就像QQ一样，与特定好友聊天，这是服务器的功能吗？服务器怎么区分不同的客户端？客户端接收代码procedure TForm3.Button3Click(Sender: TObject);
begin
with IdTCPClient1 do
begin
try
if Connected then
Listbox1.Items.Text:=IdTCPClient1.ReadLn;
finally
IdTCPClient1.Disconnect;
end;
end;
客户端发送代码begin
idTCPClient1.Connect();
idTCPClient1.WriteLn(Edit1.Text);
idTCPClient1.Disconnect;
end;服务器接收和发送代码procedure TForm1.IdTCPServer2Execute(AThread: TIdPeerThread);
var
name:string;
begin
name:=AThread.Connection.Readln();
memo1.Lines.Add(name);
Listbox1.Items.Add(name);
AThread.Connection.Writeln(Listbox1.Items.Text);
end;聊天工具Delphiindy9idtcp