Tag: Posted

Please about this code:

type
TClient = class(TObject)
public
Host: String;
Queue: TIdThreadSafeStringList;
end;
var
Clients: TThreadList;
procedure TMain. FormCreate(Sender: TObject);