[Taemin]

В представленной ниже процедуре текст записывается только в первую стоку компонента Memo, мне же нужно, чтобы ново полученный текст накапливался, то есть осуществлялся переход в следующую строку. #13#10 использую, но видимо как-то не правильно. Подскажите.

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
var
i: Word;
znach1,time,v,text: String;
begin
 for i:=0 to Memo1.Lines.Count-1
 do
    if pos('$KANAL1',Memo1.Lines.Strings[i])>0
    then
        begin
        znach1:=Memo1.Lines.Strings[i];
        time:=Copy(znach1,9,11);
        v:=Copy(znach1,24,5);
        Text:=time+' '+v;
        Text:=Text+#13#10;
        Memo2.Text:=Text;
end;
end;

[Pyro]

надо понять что происходит в 16 строке

[PS11011010]

Код:

Memo2.Text:=Memo2.Text+Text;

или

Код:

Memo2.Lines.Add(Text)

Но в последнем случае #13#10 не нужно.