nicht nur erstes Vorkommnis in Memo markieren

[lkz633]

Hallo,

markiere mit

Code:

procedure Tfmain.tv_listChange(Sender: TObject; Node: TTreeNode);
begin
  memo.SelStart:= pos(node.Text,memo.Lines.Text);
  memo.SelLength:= length(node.text);
end;

einen ausgewaehlten Eintrag in einem Memo.

Ich wuerde jetzt gerne alle Vorkommnise und nicht nur das Erste Auftreten markieren.

Wie geht dies?

Gruss und Dank
lkz633