Serversocket wie Clients Unterscheiden ?

[Net7]

Ähm.. also nun frag ich mich ernsthaft was an meiner Lösung ( weiter oben )so umsändlich sein soll.

Delphi-Quellcode:

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
        TNet7Server.ClientOnList;
end;

ich muss meine Procedure nur dort reinbasteln und schon hab ich was ich brauche die Handlenummer und die dazugehörige die Verbindung. Alles steht im Record.
Ist doch viel Eleganter als sich mit den TCustomWinSocket noch auseinanderzusetzen.

Mfg Net7