[Страдалецъ]

А в какое место цикла это надо добавить?

Добавить надо так:

Код:

if key=#13 then
   Begin
    s:=SndTxt.Text;
    for i :=1 to length(SndTxt.Text) do
     begin
      Telnet.SendCh(s[i]);
      Application.ProcessMessages; 
     end;
    Telnet.SendCh(#13);
    sndtxt.Clear;
   end;
   End;

Но я недумаю, что это поможет, т.к. суть этой комманды заставить принудительно обновить на экране все что изменилось.