TRichEdit et ScrollBar

Bonjour,

Je lance une recherche dans un TRichEdit et j'ai besoin de positionner la sélection (le curseur) sur la première ocurrence trouvée.

J'ai essayé avec le code ci-dessous mais sans résultat :cry::

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
with redtFichier do
	begin
	  for iCpt := 0 to redtFichier.Lines.Count - 1 do
	  begin
	    sRow := redtFichier.Lines[iCpt];
	    if AnsiContainsStr(UpperCase(sRow), Uppercase(sSearchText)) = true then
	    begin
	      if isCursorPos = true then
	      begin
	        // Aller à la ligne trouvée
	        SelStart := Perform(EM_LINEINDEX, iCpt, 0);
	        Perform(EM_SCROLLCARET, 0, 0);
	      end;
	      SurligneUneLigne(redtFichier, clWhite, clNavy, iCpt);
	      Inc(nbResult);
	    end;
	  end;
	 end;

Svp, si qu'elqu'un à une idée ou une solution je suis preneuse.
D'avance merci.