hoi,
ich vermute der Fehler liegt in "ClientRead"
Delphi-Quellcode:
procedure TFormClient.ClientRead(Sender: TObject; Socket: TCustomWinSocket);
var ... ;
begin
...
...
if sIP = sEigeneIP then // <-- sEigeneIP wird wohl nicht oder falsch gesetzt sein und deshalb läuft er hier nicht durch
begin
...
Form2.richeditusers.lines.Add(Copy(sText, 1, Pos(';', sText)-1));
...
end;
...
end;
cya