procedure Delete(var S: String; iFrom, iCount: LongInt)  

Удаляет из строки iCount символов, начиная с позиции iFrom. Нумерация символов начинается с 1.

Параметры:

• S - строковая переменная.
• iFrom - начальная позиция.
• iCount - количество символов.