Indy y el evento OnWork

[Descendents]

Lo he probado y así me funciona.
Espero como te he dicho antes entender que es esto lo que necesitas.

ej: TS es un TidTCPServer;

var
AT: array of TIdPeerThread;
it : integer;

procedure TS.ServerConnect(AThread: TIdPeerThread);
begin
SetLength(AT,it+1);
AT[it] := AThread;
end;


más adelante puedes referirte a cada conexión así

AT[it].Connection.WriteLn('HOLA');
etc...

Un saludo.