Hilfe beim Quelletext kürzen

[GimbaR]

Ich hab mir mal die Freiheit genommen und den Quelltext mal nach meinen Vorstellungen formatiert, um deine Frage zu beantworten.

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 IsNotInt(Edit1.Text) or IsNotInt(Edit2.Text) then
  begin 
    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 
        Edit1.text:= '50'; 
        Edit2.Text:= '10'; 
        button2.Visible:= true; 
        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;

Aber ehrlich gesagt, wüsste ich nicht was man da kürzen sollte
Das einzige, was mir aufgefallen sind die Zeilen:

Delphi-Quellcode:

 
  if IsNotInt(Edit1.Text) or IsNotInt(Edit2.Text) then
  begin 
    MessageBox(pchar('Bitte geben sie nur Zahlen ein!!!'), '!!! Achtung !!!', MB_OK); // ausgabe einer nachricht wenn im feld keine zahlt steht 
    exit; 
  end else

Da hier ja des öfteren über das "exit" gelästert wurde ( ), wäre es sinnvoller diese Zeilen ganz am Anfang zu schrieben, quasi:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject); 
begin   
  if IsNotInt(Edit1.Text) or IsNotInt(Edit2.Text) then
  begin 
    MessageBox(pchar('Bitte geben sie nur Zahlen ein!!!'), '!!! Achtung !!!', MB_OK); // ausgabe einer nachricht wenn im feld keine zahlt steht 
  end else
  begin
    case ComboBox1.ItemIndex of 
    .
    .
    .
  end;
end.