Tannenbaum

[Blup]

Zuerst zu einem grundsätzlichen Problem:
Auf dem Canvas der Paintbox wird in der Regel ausschließlich im OnPaint-Ereignis gezeichnet.
Dafür musst du dir im Buttonklick die gewünschte Anzahl Zweige merken und das Neuzeichnen auslösen.

Delphi-Quellcode:

type
  TForm1 = class(TForm)
    {...}
    procedure Button1Click(Sender: TObject);
    procedure PaintBox1Paint(Sender: TObject);
  private
    FAnzahlZweige: Integer;
  end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  {Anzahl merken}
  FAnzahlZweige := 4;
  {Neuzeichnen anfordern}
  PaintBox1.Invalidate;
end;

procedure TForm1.PaintBox1Paint(Sender: TObject);
begin
  ZweigeZeichnen(FAnzahlZweige);
end;

Das Neuzeichnen ist nähmlich nicht nur erforderlich wenn sich die Anzahl der Zweige ändert, sondern z.B. auch wenn das Fenster kurzzeitig verdeckt war. Bisher löscht die Paintbox dabei den Hintergrund vollständig mit dem eingestellten Brush, den du aber beim ersten Zeichnen bisher auf Grün umgestellt hast. Deshalb solltest du solche Veränderungen rückgängig machen, nachdem du mit dem Zeichen fertig bist. Wärend des OnPaint-Ereignis ist das aber vieleicht nicht notwendig, weil die Paintbox sich vorher die Einstellungen sichert und danach selbst wiederherstellt. Ob das bei deinem Compiler so ist, kannst du ausprobieren.

zu Frage 2 und 3: Zeichne auf ein Blatt Papier (am besten mit Kästchen als Pixel) wie das Ergebnis jeweils aussehen soll, dann kannst du dir über den Algorythmus gedanken machen.