[The Shadow]

Код:

function DeleteBetween(St, First, Second: String): String;
var
  i, j: Integer;
begin
  Result:=St;
  if (Pos(First, St) = 0) or (Pos(Second, St) = 0) then Exit;
  i:=Pos(First, St);
  j:=Pos(Second, St);
  Delete(Result, i, j - i + 1);
end;