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.