[Feraset]

совсем теперь ничего не понимаю. У меня delphi конструкцию childcount не распознаёт.

Код:

begin
 if Key=32 then
    CurPos := mmo1.CaretPos;
  for i := 0 to pred(item.childscount) do
  Foo(item[i]);
  for s:=0 to 19 do
      if AnsiPos(tv1.Items.Item[s].Text , mmo1.Lines[i])<>0 then
        begin
            mmo1.lines.text:=StringReplace(mmo1.lines.text , tv1.Items.Item[s].Text , tv1.Items.Item[Random(5)].Text ,[rfreplaceall]);
            break;
        end;
   mmo1.CaretPos := CurPos;
end;