[terehovk]

я заменяю так

Код:

RichViewEdit1.BeginUpdate;
    try
        for i := 1 to 3 do
        begin
        //перемещение в начало документа
        ItemNo:=0;
        Offs:=RichViewEdit1.GetOffsBeforeItem(ItemNo);
        RichViewEdit1.SetSelectionBounds(ItemNo,Offs,ItemNo,Offs);

        while RichViewEdit1.SearchText('$'+a[i][1]+'#', [rvseoDown,rvseoWholeWord]) do
            RichViewEdit1.InsertText(a[i][2]);
        end;
    finally
        RichViewEdit1.EndUpdate;
    end;

но форматирование удаляется