Telnet Client Problem

[jacky213]

Hallo,

ich hatte vor eine Telnet Verbindung aufzubauen und darüber ein paar Befehle abzusetzen aber irgendwie
stützt das Programm nach dem absetzen des ersten Befehls (Der vom Server Korrekt ausgeführt wird) ab.
Hier seht ihr meinen bisherigen Code:

Verbinden:

Code:

procedure TForm2.Button1Click(Sender: TObject);
begin
telnet.Host:=edit1.Text;
telnet.Port:= strtoint(edit2.Text);
telnet.Connect;
button1.Caption:='Connected';
button1.Enabled:=false;
end;

Befehl Senden:

Code:

telnet.Sendcmd('echo hi');

Verbinden geht ohne Probleme (Trennen macht nicht richtig). Aber sobald ich den
zweiten Button zum absetzten des Befehls drücke wird der Befehl ausgeführt, dass
Programm stützt allerdings komplett ab.

Hoffe ihr könnt mir helfen

Danke