como localizar uma palavra no richedit

[Xismenes]

como eu faço pra localizar uma palavra no richedit ??

Queria fazer um localizar igual tem no explorer , ele marca e vai até a palavra ... Eu consegui fazer um localizar que só seleciona a palavra, ai se o texto é muito grande já não da , porque ele não vai até a palavra, só seleciona ...

Valeww !!

[Ace Stryker™]

Procedure TForm1.Button1Click(Sender: TObject);
 var i:integer;
begin
 i:= pos( edit1.text,RichEdit1.Text)-1;
 RichEdit1.SelStart := i;
 RichEdit1.SelLength := length(edit1.text);
 RichEdit1.SelAttributes.Color := ClRed;
 RichEdit1.SelAttributes.Style := [fsBold];

end;

fonte: http://www.planetadelphi.com.br/dica/6749/...vra-no-richedit

[jeffersom]

Procedure TForm1.Button1Click(Sender: TObject);
 var i:integer;
begin
 i:= pos( edit1.text,RichEdit1.Text)-1;
 RichEdit1.SelStart := i;
 RichEdit1.SelLength := length(edit1.text);
 RichEdit1.SelAttributes.Color := ClRed;
 RichEdit1.SelAttributes.Style := [fsBold];

end;

fonte: http://www.planetadelphi.com.br/dica/6749/...vra-no-richedit

Aproveitando o tópico, alguém pode me ajudar denne código:

var
z: integer;
f: TextFile;
   texto: String;

begin

       AssignFile (f, 'C:\Arquivo.txt');

       reset(f);
       read(f, texto);
     
    z := AnsiPos('string_a_localizar', texto);
    edit1.text:= inttostr (z);

    closefile(f);

Estou tentando localizado uma string em um arquivo de txt e exibir a localização em um edit. Usando esse código, ele retorna a posição dos caracteres que estão na 1ª linha, mas quando tento procurar um caractere que está nas demais linhas o código me retorna sempre o valo '0'.

Como eu faço para resolver isso?