[Totoro]

Можно например попробывать так: в документе расставить метки (у меня они выглядят как [1], [2]...)

создать функцию

Код:

function FindAndInsert (FindText,ReplacementText:string):boolean;
    label 1;
begin
WB.StartOfDocument;
1: WB.EditFind(FindText);
  if WB.EditFindFound then begin WB.insert(ReplacementText);
  goto 1;
  end;
end;

а дальше вызвать эту функцию необходимое количество раз с разными параметрами:

Код:

FindAndInsert ([1],Edit1.Text); // заменить метку [1] на текст из Edit1
FindAndInsert ([2],Edit2.Text);
....