Conexión Telnet

[ramonibk]

Hola de nuevo.
no se si la solución es la mas ortodoxa pero funciona.
he creado un procedimiento llamado MyTimer
en el cual tengo.

Código Delphi [-]
 Timer1.Interval := StrToInt(EdTimer.Text)*1000;
 Timer1.Enabled := True;

el evento DataAvailable del Indy telnet queda.

Código Delphi [-]
 procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;
  const Buffer: TIdBytes);
begin
  StrBuffer := bytestostring(Buffer);
  if Ansipos(trim('login'),trim(StrBuffer))<>0 then
   Begin
    IdTelnet1.Socket.WriteLn(EdUser.Text);
    Sleep(1000);
    IdTelnet1.Socket.WriteLn(EdPass.Text);
    MyTimer;
   End;
  Log.Text := Log.Text + bytestostring(Buffer);
  Log.SelStart := Length( Log.Text );
end;

y el Timer1 es el que genera la consulta y una vez echa se desconecta.

Un saludo a todos.