Probiers doch mal hiermit:
Delphi-Quellcode:
procedure TForm1.ClientSocket1Read(Sender: TObject; Socket: TCustomWinSocket);
var
k, i: integer;
sText : String;
begin
Form1.Show;
sText := socket.receivetext;
if sText[1] <> ',' then
Memo1.Lines.Add(sText)
(...)
vielleicht klappt es ja. Ich weiss leider nicht was genau du da machst und was an die Socket geschickt wird und welchen Regeln es folgt. Weil du liest ja socket.receivetext 2-mal aus in deinem Code-Snipet und ich geh einfach mal davon aus dass das falsch ist, weil beim 2ten lesen ja nicht nochmal was an die Socket geschickt wurde.