Zitat von
Maltimore:
Delphi-Quellcode:
procedure TForm1.ClientSocket1Read(Sender: TObject;
Socket: TCustomWinSocket);
var k, i: integer;
begin
Form1.Show;
text := socket.receivetext; // <-- hier ist der Fehler
if text[1] <> ',' then
Memo1.Lines.Add(Socket.ReceiveText)
wenn du einfach nur text schreibst, dann setzt du die Caption der Form. Ist wie wenn du Form1.Text oder Form1.Caption schreibst. Benenne deine Variable mal um, z.B. sText statt text, dann stehst auch nicht mehr in der Caption.
Gargoyl