Pos und Zeilenumbrüche???

[Muellermilchtrinker]

Servus DP,

Ich suche so nach einem Wort in einem Memofeld und markiere es.

Delphi-Quellcode:

Memo1.SetFocus;
Memo1.SelStart := Pos(UpperCase(Edit2.Text),UpperCase(Memo1.Text));
Memo1.SelLength := Length(Edit2.Text);

Das Problem ist nun:
Steht das Wort in der ersten Zeile, so wird so markiert (unterstrichen = markierung): Test.
Steht das Wort in der zweiten Zeile, so wird so markiert: Test.
Und wenn das Wort in der dritten Zeile steht wird so markiert: Test.
Wie kann ich das umgehen???
Bzw.: Wie kann ich es immer richtig markieren???