[lmikle]

Код:

uses strUtils;

function StringDelete(Str, AFrom,  ATo : String; AToEnd : Boolean = false) : String;
var
  iFrom, iTo : Integer;
begin
  iFrom := Pos(AFrom,Str);
  If AToEnd Then iTo := Length(Str) Else iTo := PosEx(ATo,Str,AFrom);
  Result := Str;
  If (iFrom > 0) And (iTo > 0) 
    Then Delete(Result,iFrom,iTo);
  // Если удалять все вхождения, то можно сделать рукурсию:
  // If Str <> Result Then Result := StringDelete(Str, AFrom,  ATo, AToEnd);
end;