потому что второе находится на "длина удаленного текста" + Pos() и эту переменную нужно не забывать увеличивать
+ странное удаление:
find.Delete(1,Form6->Edit1->Text.Length()-1);
в чем его смысл?
удалять нужно по Pos() + "длина искомого текста"

То ли я слишком тупой, то ли еще что... Напишите плиз мой переделанный код. А то мы так еще долго будем разбираться.

AnsiString find=Memo1->Lines->Text; -- эту строку нужно вынести куда-нить в начало процесса поиска
там же добавить int oldSelectionEnd = 0;

Код

Form6=new TForm6(this);      if(Form6->ShowModal()==mrCancel) return;         int pos = 0; AnsiString textToFind = Form6->Edit1->Text;  if( ( pos= find.Pos(textToFind) ) )      {       find.Delete(1, pos + textToFind.Length()-1);       MessageBox(NULL,"Найдено!","Инфо",MB_ICONINFORMATION);       Memo1->SelStart= oldSelectionEnd + pos-1;       Memo1->SelLength = textToFind.Length();     oldSelectionEnd += pos + textToFind.Length() -1;       return;      }      MessageBox(NULL,"Не найдено.","Инфо",MB_ICONINFORMATION);

примерно так ( писал на коленке )

Нет, не работает. Все равно ищет и выделяет только первое найденное. Свойство HideSelection у Memo1 выключено. Что еще подскажете? Может, как-нибудь организовать пошаговый поиск, т.е. переделать форму поиска. Поясняю. Нашел он одно совпадение - спрашивает, а искать ли дальше? Если да, ищет дальше. На вот этот спрос-ответ нужен код, я вряд ли с ним справлюсь сам... А форму я беру на себя.
Вот это я написал. Но, (см. выше), это не работает.

Код

Form6=new TForm6(this);  if(Form6->ShowModal()==mrCancel) return;  AnsiString text=Memo1->Lines->Text;  AnsiString text_to_find=Form6->Edit1->Text;  int select_len=0,position=0;  if((position=text.Pos(Form6->Edit1->Text)))  {   text.Delete(1,position+text_to_find.Length());   MessageBox(NULL,"Найдено!","Инфо",MB_ICONINFORMATION);   int x=Form6->Edit1->Text.Length();   Memo1->SelStart=select_len+position-1;   Memo1->SelLength=x;   return;  }  MessageBox(NULL,"Не найдено.","Инфо",MB_ICONINFORMATION);

2sim7: да не парься ты тогда...пиши посимвольный поиск,тогда и для понимания легче будет и удалять ничего не придется ...только вот не знаю как дела будут обстоять со скоростью...

само-собой не работает -- у тебя постоянно процесс поиска начинается.
если ты хочеш делать так, как описал -- форма должна быть не модальной. -- сделай ее fsStayOnTop

Нет-с, ошибку я нашел, но она не повлияла на результат. Я ее часто стал делать. Посмотрите в коде выше на инструкцию if. Там стоит одно = вместо двух. Но на результат, повторюсь, это не повлияло. Все равно ищет только первое вхождение. hunter, я вернулся к старому коду:

Код

Form6=new TForm6(this);  if(Form6->ShowModal()==mrCancel) return;  AnsiString text=Memo1->Lines->Text;  AnsiString text_to_find=Form6->Edit1->Text;  if(text.Pos(text_to_find))  {   MessageBox(NULL,"Указанная строка обнаружена!","Информация",MB_ICONINFORMATION);   Memo1->SelStart=text.Pos(text_to_find)-1;   Memo1->SelLength=text_to_find.Length();   text.Delete(1,text_to_find.Length());   return;  }  MessageBox(NULL,"Указанная строка не найдена.","Информация",MB_ICONINFORMATION);

Но это ищет опять-таки только первое вхождение. Дайте плиз проверенный и рабочий код, а то надоело мучаться. Мучаться бессмысленно надоело, то есть.

М	Я закрываю эту тему. Вам дали по этому вопросу полную консультацию. Если вопрос в том, что Вам нужно написать рабочий код за Вас, обращайтесь в Центр помощи Если желаете, я перенесу эту ветку туда