Hilfe beim Quelletext kürzen

[sk.Silvia]

thats my syntax...do you like it?

Delphi-Quellcode:

procedure TForm1.Button2Click (Sender: TObject);
  begin

  case ComboBox1.ItemIndex of
    0:Timer1.Interval:=60;
    1:Timer1.Interval:=30;
    2:Timer1.Interval:=15;
    end;

  Button2.Visible:=false;
  Button4.Visible:=true;

  if winkel>360 then winkel:=0;

  if TryStrToInt(edit1.Text, r1) and TryStrToInt(edit2.Text, r2) then
      begin

      z:=r1+2*r2;

      if (z>200) and (MessageDlg('Soll wirklich gemalt werden?', mtInformation , [mbYes, mbNo], 0) <> mrYes) then
          begin
          Edit1.text:='50';
          Edit2.Text:='10';
          Button2.Visible:=true;
          Button4.Visible:=false;
          end
      else
          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;

      paintbox1.Canvas.Draw (0,0,bitmap1);
      end
  else application.MessageBox(pchar('Bitte geben sie nur Zahlen ein!'), '!!! Achtung !!!', MB_OK);

  end;