if idTelnet1.Connected then
begin showmessage('estou conectado');
end
else
begin
showmessage('nao estou conectado');
end;

Acredito que seja isso que você estava querendo, sendo que se foi o retorno do buffer você vai ver nesse acima em alguma das minhas respostas a solução sendo que você deverá tratar o retorno com um emulador teVT100orANSI para poder ler os retornos.


Citação Postado originalmente por pcmil Ver Post
amigos me ajude a receber o retorno do servidor, pois estou usando assim segue abaixo

procedure TForm1.BitBtn1Click(Sender: TObject);
var
I: Integer;
begin
StatusBar1.SimpleText:= 'Tentando conectar com o servidor...';
if IdTelnet1.Connected then
IdTelnet1.Disconnect;
IdTelnet1.Host:= '192.168.50.243';
IdTelnet1.Port:= 23;
idTelnet1.Connect;
Sleep(1000);
IdTelnet1.WriteLn('usuario');
Sleep(1000);
IdTelnet1.WriteLn('senha');
Sleep(1000);
if Length(Status) > 2 then
begin
StatusBar1.SimpleText:= 'Logado com sucesso';
BITBTN1.Enabled:= false;
end
else
begin
StatusBar1.SimpleText:= 'Usuario ou senha invalida!';
BITBTN1.Enabled:= true;
end;
end;

dai fala que esta conectado, mas como posso ter certeza que realmente esta conectado meu ajudem por favor