The code below

 procedure TForm1. Button1Click (Sender: TObject); 
The begin 
IdTelnet1. Host:='127.0.0.1; 
IdTelnet1. Port:=23; 
IdTelnet1. Connect; 
end; 

Procedure TForm1. IdTelnet1DataAvailable (Sender: TIdTelnet; 
Const Buffer: string); 
The begin 
Memo1. Lines. The Add (Buffer); 
end; 

Procedure TForm1. IdTelnet1Status (ASender: TObject; Const AStatus: TIdStatus; 
Const AStatusText: string); 
The begin 
Memo1. Lines. The Add (AStatusText); 
end; 
End. 

IdTelnet1Status reaction is normal, Memo1 shown in

 Connecting to 127.0.0.1. 
Connected. 

Does not seem to trigger, IdTelnet1DataAvailable Memo1 cannot Login
I use Windows Telnet is normal.
Is there a master can help me to point out mistakes,