Würdest du bitte deinem Topic ein aussagekräftigen Titel geben? Siehe dazu auch den entsprechenden Abschnitt in den Does und Donts.
Und dann räum mal deinen Code etwas auf. Die zwei letzten begin's:
Delphi-Quellcode:
if anz_abschnitte > 1 then
begin
begin
begin
sind wohl überflüssig.