procedure TForm1.Button1Click(Sender: TObject);
const
  Delimiter=',';
  Replacement='_';
var
  I:integer;
  Num,Str:string;
begin
  Str:=edit1.text;
  Num:=edit2.text+Delimiter;
  I:=0; {новая позиция, с уже добавлеными символами}
  While length(Num)>0 do
  begin
    insert(Replacement,Str,strtoint(copy(Num,1,pos(Delimiter,Num)-1))+I);
    delete(Num,1,pos(Delimiter,Num));
    inc(I);
  end;
  edit1.Text:=Str;
end;