Indem Du sie erstellst?
z.B. so:
Delphi-Quellcode:
Userlist: Tstringlist;
..
Userlist:=Tstringlist.create;
procedure TfrmServer.ServerClientConnect(Sender: TObject; Socket: TCustomWinSocket);
begin
Memo1.Lines.Add('Status: Client ' + Socket.RemoteAddress + ' verbunden.');
Userzahl:=Userzahl +1; // woher auch immer das kommt!
Userlist.Add(UserName); // woher auch immer das kommt!
User.Caption:='User: ' + IntToStr(Userzahl);
end;
procedure TfrmServer.ServerClientDisconnect(Sender: TObject; Socket: TCustomWinSocket);
var
uli : integer;
begin
Memo1.Lines.Add('Status: Client ' + Socket.RemoteAddress + ' getrennt.');
Userzahl:=Userzahl -1;
uli:=userList.Indexof(UserName); // woher auch immer das kommt!
if uli>-1 then Userlist.delete(uli); // woher auch immer das kommt!
User.Caption:='User: ' + IntToStr(Userzahl);
end;
So könnte man es machen, die Frage ist aber wo die Information UserName herkommt, ebenso scheint ja auch Userzal vom Himmelgefallen zu sein und User könnte ein Formular sein.
Für mich etwas zu viel Konjunktiv.
ruß
K-H