TCP PHP und nu auch noch Delphi

[WIN-MANww]

Also, ich hab jetzt alles fertig, nur funktioniert das mit dem OnRead nicht, ich kann wohl etwas an den Server senden, ich weiss zwar nicht ob wirklich was gesendet wird, aber da ich keine Fehlermeldung sehe glaub ich schon, aber die Antwort wird nicht angezeigt. Hier nochmal mein Code:

Delphi-Quellcode:

{ Connecten, sowie selserver und login }
procedure TForm1.Button1Click(Sender: TObject);
var
 loginstring, selserver: String;
begin
  selserver := 'sel '+Edit6.Text;
  loginstring := 'login '+Edit1.Text+' '+Edit2.Text;
  sock := TClientSocket.Create(nil);
  sock.Host := Edit3.Text;
  sock.Port := Strtoint(Edit4.Text);
  try sock.Open except
   Showmessage('Verbindung fehlgeschlagen!'); end;
  sock.Socket.SendText(selserver);
  Sock.Socket.SendText(loginstring);
end;

{ OnRead Event }
procedure TForm1.sockRead(Sender: TObject; Socket: TCustomWinSocket);
begin
 Memo1.Lines.Add(Socket.ReceiveText);
end;

{ Einzelner Befehl aus Edit5 senden }
procedure TForm1.Button2Click(Sender: TObject);
var
 command: String;
begin
 command := Edit5.Text;
 sock.Socket.SendText(command);
end;

end.

[WIN-MANww]

*push*

Hat niemand einen Tipp für mich? Ich krieg das einfach nicht hin...

[WIN-MANww]

Nachdem ich nun ne Weile gesucht habe bin ich per Zufall auf die Antwort gestossen, ich habe nämlich bemerkt, das es nicht an dem onRead Event liegt, sondern am SendText, es sendet nämlich nur den Text, jedoch weiss der Server gegenüber gar nicht das der Befehl schon fertig ist, denn ein Enter wird nicht gesendet, nachdem ich SendText um ein +#13#10 erweitert hatte ging alles wie geschmiert, das sieht dann also so aus: SendText(command+#13#10)