[NumLock]

что-то типа этого для начала:

Код:

procedure TForm1.Send_Telnet(command: string); 
var 
i :  LongWord; 
begin 
 IdTelnet1.Host := 'localhost'; 
 IdTelnet1.port := 6060; 
 if not(idTelnet1.Connected) then 
  try 
    IdTelnet1.Connect;       
  except 
    ShowMessage('not connect'); 
  end; 
 while not idTelnet1.Connected do Sleep(0);
  Begin 
    String_response:=''; 
    Status_response:= False;    
    idTelnet1.WriteLn(command);   
    while  not Status_response do Sleep(0);
 end; 
end;