Удаление подстрок из строки за один проход

[Sibedir]

А память под буфер кто выделять будет
В начале

SetLength (Buffer, Length(Data)); // по идее лучше бы так

или просто

Buffer := Data; // так тоже должно работать

В конце

SetLength (Buffer, j); // обрежем лишнее

-----------------------------------------------------------------------------------------------------------
String по сути своей - это динамический массив array of Char. Компилятор их именно так и воспринимает. Просто пара фишек довешена, а так массив массивом.
Почитайте, скажем, вот здесь: http://www.sources.ru/magazine/0804/delphistr.html
При работе со строками это знать обязательно.

[Аватар]

Память -то под Buffer нужно изнально выделить