Hilfe beim Quelletext kürzen

[Nikolas]

Es ist etwas schwierig, sich in deinem Code zurecht zu finden, da du überhaupt nicht einrückst und nicht klar ist, welches begin zu welchem end gehört. Als Fausregel gilt eigentlich, dass zusammengehörenende Begin-End-paare immer untereinander stehen und nicht wie bei dir im Text:

if z>200 then begin
if MessageDlg('soll wirklich gemalt weden???',mtInformation , [mbYes, mbNo], 0) = mrYes then begin
with bitmap1.Canvas do begin
ellipse(x0-r1,y0-r1,x0+r1,y0+r1); //zentraler Kreis
ellipse(x0+r1,y0+r2,x0+r1+2*r2,y0-r2); //außen Kreis
pen.Color:=clred;
ellipse(x0+r1+2,y0+2,x0+r1-2,y0-2);
pen.Color:=clblack;
end;
timer1.Enabled:=true;
end else begin