Hilfe beim Quelletext kürzen

[Hawkeye219]

Darf ich mitspielen?

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
    // ausgabe einer nachricht wenn im feld keine zahlt steht
    application.MessageBox(pchar('Bitte geben sie nur Zahlen ein!'), '!!! Achtung !!!', MB_OK);

end;

Gruß Hawkeye