var
s:string;  //В этой переменной мы будем производить поиск, в ней же будем обрезать текст
p:integer; //Здесь будут храниться координаты найденного куска текста
i:integer; //Количество обрезанных символов

 
if p=0 then begin
 i:=0;                       //если поиска еще не было то заполняем переменные начальными для поиска значениями
 s:= Memo1.Text ;            // переносим весь текст в переменную в которой будем производить поиск
end;
 
p:= pos(edit1.Text,s);      //ищем строку в переменной s
if p<>0 then                //если строка найдена то делаем
 begin
                            //три следующие строчки - выделяем найденный текст
  Memo1.SetFocus();                    
  memo1.SelStart:=p+i-1;                
  memo1.SelLength:=length(edit1.text); 
 
  i:=i+p+length(edit1.Text)-1;                  //заполняем i новыми данными об обрезанном количестве символов
  s:= copy(s,p+length(edit1.Text),length(s));   //обрезаем строковую переменную чтобы исключить повторные нахождения одного и того же элемента
 end else showmessage('поиск закончен');

p:=0;