[lmikle]

вообще, такая процедура есть встроенная.
а если хочется написать самому, то можно так:

Код:

function DeleteSubStr(S : String; Start, Count : Integer) : String;
var
  I : Integer;
begin
  Result := '';
  For I := 1 To Length(S) Do
    If (I < Start) Or (I > Start + Count) Then Result := Result + S[i];
end;

Не оптимально, но работать будет.