Jak znaleźć tekst w RichEdit

Oto kod:

var
  FoundAt: LongInt;
  StartPos, ToEnd: Integer;
begin
  with RichEdit do
  begin  
    if SelLength <> 0 then
      StartPos := SelStart + SelLength
    else
      StartPos := 0;  

    ToEnd := Length(Text) - StartPos;

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