var i, cnt: Integer; begin cnt := Workbook.Sheets[1].HPageBreaks.Count; if cnt > 0 then begin for i := cnt downto 1 do Workbook.Sheets[1].HPageBreaks.Item[i].Delete; end; end;