telnetclient mit synapse und separaten befehlen

[Reiter0303]

hallo, ich bin am versuchen mir einen telnetclient zu basteln..
der login geht
habe aber mehrere probleme

hier mal der code für den login

Code:

 procedure TForm1.TelnetConnect;

var
  telnet: TTelnetsend;
begin
  memo6.Lines.Clear;
  telnet:= TTelnetsend.Create;
  try
    telnet.TargetHost:=ComboBox1.Text;
    telnet.Login;
    telnet.WaitFor('login:');
    telnet.Send(Edit3.Text+#$0d+#$0a);
    telnet.WaitFor('word:');
    telnet.Send(Edit4.Text+#$0d+#$0a);
    telnet.WaitFor('>');
    memo1.lines.Add('Telnet-Verbindung zu '+ComboBox1.Text+' hergestellt...');
    Memo6.Lines.Text:=telnet.sessionlog;

  finally
  end;
end;

das funktioniert auch soweit...
nun möchte ich aber über ein editfeld die comannds eintragen und mit einem button senden
da komm ich nicht weiter

wie muss sowas aussehen?
der code bringt mir eine leere ausgabe
das programm wird aber durch kompiliert und keine zugriffsverletzung

Code:

procedure TForm1.Button15Click(Sender: TObject);

var
  telnet: TTelnetsend;
begin
  TelnetConnect;
  memo6.Lines.Clear;
  telnet:= TTelnetsend.Create;
  try
    telnet.WaitFor('>');
    telnet.Send(Edit14.Text+#10);
    Memo6.Lines.Text:=telnet.sessionlog;
  finally
  end;
end;

vielleicht hat ja jemand sowas schon mal gemacht und könnte mir dabei helfen

danke