Klientapp

if not(s[1] = #36) and if not(s[1] = #60) then
        begin
                s2 := memo1.lines[memo1.lines.count-1];
                s2 := s2 + s;
                memo1.lines[memo1.lines.count-1] := s2
        end else
                memo1.lines.add(s)
        end
end