Поиск в Memo

[Jadson]

есть программа с текстом в мемо,и нужно осуществлять поиск по нем

вот есть код но он видает только первый результат поиска,а нужно все.подскажите как пожалуйста

var
  Find:string; // Искомая строка
  k:integer; // Счетчик для цикла
procedure TForm2.BitBtn1Click(Sender: TObject);
begin
find:=Edit1.Text;
For k:=0 to Memo1.Lines.Count-1 do
If Pos(FIND, Memo1.Lines.Text)<>0
Then
Begin
Memo1.SetFocus();
Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
Memo1.SelLength:=Length(FIND);
End;
end;

[Stilet]

Правильно. Pos не умеет искать дальше.
Если у тебя есть возможность использовать PosEx - используй.
Или в цикле проверяй проходом посимвольно:

For k:=0 to Memo1.Lines.Count-1 do
If copy(Memo1.Lines.Text,k,Length(FIND))=FIND Then Begin
 Memo1.SetFocus();
 Memo1.SelStart:=Pos(FIND,Memo1.Lines.Text)-1;
 Memo1.SelLength:=Length(FIND);
End;

[Dozent]

For i:=0 to Memo1.Lines.Count-1 do
begin
if AnsiPos(Find, Memo1.Lines[i])<>0 then
Begin
Memo1.SetFocus();
Memo1.SelStart:=pos(FIND, Memo1.Line[i])-1;
Memo1.SelLength:=Length(FIND);
End;
end;