TCP PHP und nu auch noch Delphi

[WIN-MANww]

Hi, ich bins nochmal

Das Verbinden hab ich nun hingekriegt, nur wie sende ich nun ein Kommando an den Server und kann dann die Reply in einer Memo ausgeben? Das ganze soll eine Art Shell geben mit welcher ich einen Befehl wie dbuserlist senden kann und in der Memo1 dann die Reply angezeigt bekomme. Mein Code:

Mit dem Teamspeak Server verbinden:

Delphi-Quellcode:

var
 selserver: String;
 loginstring: String;
begin
 loginstring := 'login '+username_edit.Text+' '+password_edit.Text;
 selserver := 'sel '+port_edit.Text;
 sock := TClientSocket.Create(nil);
 sock.Host := host_edit.Text;
 sock.Port := Strtoint(port_edit.Text);
 try sock.Open;
 except Showmessage('Verbindung fehlgeschlagen'); end;
 sock.Socket.SendText(selserver);
 Memo1.Lines.Add(sock.Socket.ReceiveText);
 sock.Socket.SendText(loginstring);
 Memo1.Lines.Add(sock.Socket.ReceiveText);

Ein Kommande senden:

Delphi-Quellcode:

var
 command: String;
begin
 command := Edit1.Text;
 sock.Socket.SendText(command);
 Memo1.Lines.Add(sock.Socket.ReceiveText);

Wenn ich nun ein Kommando eingebe, egal welches, dann Steht in der Memo1 [TS] was ja beim connecten auf einen Teamspeak Telnet Server immer am Anfang steht, aber das OK für ein Kommando wie sel 8767 bekomme ich nicht und auch kein ERROR.