[Electronic_Arts]

Добрый день всем

тут такая проблема с телнет-ом не получается подключиться к хосту
после подключения ничего не происходит

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27

var TTelnet: TTelnetSend; begin TTelnet:=TTelnetSend.Create; TTelnet.Timeout:=5000; TTelnet.TargetHost:='192.168.1.1'; TTelnet.Login; if TTelnet.Login then begin memo1.Clear; memo1.Lines.Add('Connected'); if (TTelnet.WaitFor( 'Login:' )) then begin TTelnet.Send( CONST_USER + #13 ); memo1.Lines.Add('LOGIN: ADMIN'); if (TTelnet.WaitFor( 'Password:' )) then begin TTelnet.Send( CONST_PWD + #13 ); memo1.Lines.Add('PASWD: ADMIN'); if ( TTelnet.WaitFor( '#' )) or ( TTelnet.WaitFor( '>' )) then begin TTelnet.Logout; memo1.Lines.Add('DISCONNECTED!'); end; .. .. ..

На Мемо вижу только Connected - значит программа дальше не идет - в чем проблема почему?