Hilfe beim Quelletext kürzen

[Langa]

Brauch mal wieder hilfe

wie kann ich den quelltext kürzen aus dünnen oder geht das nicht??? und so ist schon das kürzeste???

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
begin

        case form1.ComboBox1.ItemIndex of
           0 : form1.Timer1.Interval := 60;
           1 : form1.Timer1.Interval := 30;
           2 : form1.Timer1.Interval := 15;
        end;
   form1.button2.Visible:=false;
   form1.Button4.Visible:=true;

           if winkel>360 then winkel:=0;

if IsNotInt(edit1.Text) or IsNotInt(edit2.Text) then begin
    application.MessageBox(pchar('Bitte geben sie nur Zahlen ein!!!'), '!!! Achtung !!!', MB_OK);   // ausgabe einer nachricht wenn im feld keine zahlt steht
    exit;
  end else Begin
        r1:=strtoint(edit1.text);
        r2:=strtoint(edit2.Text);                                                  //umwandeln des des string aus den eingabefeldern in einen integer wert und speichern auf dem integer l und r
  end;
  z:=r1+2*r2;
  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
      form1.Edit1.text:='50';
      form1.Edit2.Text:='10';
      form1.button2.Visible:=true;
      form1.Button4.Visible:=false;
      end;
      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;