Infos über Client

[mb1996]

hm

Code:

for b:= 0 to TServerWinSocket(Sender) do
       begin
       if TServerWinSocket(Sender).Connections[b].SocketHandle = Socket then
        begin
        Server.Socket.Connections[b].SendText('ONLINE: ' + Usermanager.Accounts.Items[b].UserName);
        end;
       end;

Das funktioniert nicht. ,,to TServerWinSocket(Sender)" ist kein Integer.