[malyanya]

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

[lmikle]

Т.е. каждое слово - на отдельной строке?
Ну загрузи их тогда в TStringList и дальше IndexOf().

[Лунтик-Некрофил]

Нее, если "в самом начале изучения", то скорее всего одна строка)
Тут легче всего находить позицию вхождения искомого слова в строку, после чего без проблем его редактировать/удалять и т.д.
А легче пользуйся диалогом "Найти и заменить"

[NIch]

Ищи по форуму, такие темы неоднократно поднимались...И дублировать уже набранный код просто неохота...

[malyanya]

хорошо, всем спасибо))

[hkdkest]

Код:

function ReplaceSub(str, sub1, sub2: string): string;
var
  aPos: Integer;
  rslt: string;
begin
  aPos := Pos(sub1, str);
  rslt := '';
  while (aPos <> 0) do
  begin
    rslt := rslt + Copy(str, 1, aPos - 1) + sub2;
    Delete(str, 1, aPos + Length(sub1) - 1);
    aPos := Pos(sub1, str);
  end;
  Result := rslt + str;
end;