Wyszukiwanie w richedit

Chce by po wyborze item'a w listboxie wyszukiwal sie text z nieco zmodyfikowana trescia w rich edit. Korzystam z procedury znalezionej w faq'u. Wyglada to tak:

procedure TForm1.ListBox1Click(Sender: TObject);
var i:integer;
nazwa:string;
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
nazwa:= '';

with RichEdit1 do
begin
if SelLength 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;

ToEnd := Length(nazwa) - StartPos;

FoundAt := FindText(
nazwa, StartPos, ToEnd, [stMatchCase]);
if FoundAt -1 then
begin
SetFocus;
SelStart := FoundAt;
SelLength := Length(nazwa);
end;
end;

I problem, w tym, ze nie kazdy element mi znajduje (zaznacza) choc jestem pewien ze on istnieje. Czemu sie tak dzieje? Jak moge cos na to zaradzic?

A moze jest inny sposob na rozwiazanie mojego problemu. To znaczy sprawdzam, czy cala linijka rich edita pokrywa sie z wartoscia itema. Potem przestawiam widok i kursor na ta linijke...

nazwa, StartPos, ToEnd, [stMatchCase]);

To może wywal stMatchCase i zamień na [] ??

nazwa, StartPos, ToEnd, [stMatchCase]);

To może wywal stMatchCase i zamień na [] ??

Niestetety to nie pomaga. Zauwazylem, ze znajduje to tylko te wyrazy ktore sa w pierwszej linijce...