nicht nur erstes Vorkommnis in Memo markieren

[lkz633]

Code:

    
memo.SelStart:= 1;
while (pos(node.Text,copy(memo.Lines.Text, memo.SelStart, length(memo.lines.text))) > 0)  do
  begin
    memo.SelStart:= pos(node.Text,copy(memo.Lines.Text.selstart length(memo.lines.text))) ;
    memo.SelLength:= length(node.text);
  end;

Es faengt immer wieder von vorne an, so dass es zu einer Endlosschleife kommt