Aide INDY Choix du thread lors du WriteLn

Bonjour! Alors voila, je voudrai realisé un Chat Multi-Client et je voudrai que depuis mon serveur, je puisse selectioné le Thread a qui envoyé le message, seulement deja quand j'envoi mon message a tout les Client, les clients ne reçoivent rien:

Serveur:

procedure TForm1.Button4Click(Sender: TObject);
var List: TList;
i:Integer;
begin
List:= Server.Threads.LockList;
For i:=0 to pred(List.Count) do
Server.Threads.UnlockList;
List.Free;
end;

Client(Cette procedure est placée OnWork):

procedure TForm1.ClientWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
Edit1.Text:=Client.ReadLn();
end;

end.

Ou est mon erreur?

Et.... en passant, si a la place de i je met le numero du Client (par exemple 1 si je veu parlé au premier client connecté) la methode est-elle bonne? Merci beaucoup de vos reponse

Merci de votre aide...