[vetal07]

Добрый день, подскажите как передать параметры в поле мемо через idTelnet?

Вот часть кода:

Код:

procedure TForm1.IdTelnet1DataAvailable(Sender: TIdTelnet;
  const Buffer: TArray<System.Byte>);
  const CR=#13; LF=#10;
var
  Start, Stop: integer;
  str:string;
  begin
    str := TEncoding.ANSI.GetString(Buffer);
    memo1.Lines.Add('');
    start:=1;
    stop:=Pos(CR, str);
    if stop = 0 then
      stop:=length(str)+1;
    while start<=length(str) do
      begin
        memo1.Lines.Strings[memo1.Lines.Count - 1]:= memo1.Lines.Strings[memo1.Lines.count - 1] +
        copy(str, start, stop - start);
        if str[stop] = CR then begin
            memo1.Lines.Add('');
        end;
        start:=stop+1;
        if start > length(str) then break;
        if str[start] = LF then start:=start+1;
        stop:=start;
        while (str[stop] <> CR) and (stop <=length(str)) do
        stop:=stop+1;
      end;
  end;

procedure TForm1.Memo1KeyPress(Sender: TObject; var Key: Char);
var
cmd:string;
begin
 if IdTelnet1.connected then
begin
IdTelnet1.SendCh(Key);
end;

lmikle: пользуемся тегами оформления. первое предупреждение.

В данном случае у меня передаются символы по одному и каждый сновой строки
*** Attention! Please, don't restart this router! ***
*A:router#
s
sh
ho
ow
w

Вопрос. как сделать, что бы передавались корректно символы?
т.е таким образом
*** Attention! Please, don't restart this router! ***
*A:router# show