optische darstellung von binären Bäumen

[Gregor00]

Guten Tag zusdammen, ich bins mal wieder

Also Folgendes zu meinem problem:
Ich habe hier einen Binären Baum (sortiert, nicht ausgewogen)programmiert, hier ist der Quelltext

Delphi-Quellcode:

Zeiger = ^Knoten;
  Knoten = Record
             Links: Zeiger;
             Rechts: zeiger;
             Inhalt: Integer;
           end;

var
  Form1: TForm1;
  a: Integer;
  Wurzel: Zeiger;
implementation

{$R *.DFM}

Procedure Einfuege (zahl: Integer; var Lauf: Zeiger);
  Begin
    If Lauf = Nil Then
      begin
        New(lauf);
        With Lauf^ do
          Begin
            Inhalt:= zahl;
            links:= Nil;
            rechts:= Nil;
          end;
      end
    else
      if Zahl < Lauf^.Inhalt then Einfuege (zahl, lauf^.Links)
        else
          If Zahl > lauf^.Inhalt then Einfuege (zahl, Lauf^.Links)
  end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  Wurzel:= NIL;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Zahl: Integer;
begin
  a:= StrToInt(Edit1.Text);
  Einfuege (a, Wurzel);
end;

Dabei ist a die zahl die in dem Baum eingefügt werden soll.
ber den Button1 soll der baum aufgebaut werden, d.h. die Zahl, in Edit1 angegeben wird (= a) soll in den baum einsortiert werden.
Das problem läuft sacheinbar auch, bloß habe ich keine ahnung, wie ich den baum optisch ausgeben soll. Bis jetzt bleibt Form1 immer grau.
Kann hier jemand eingie optisch ansprechende, jedoch nicht zu schwer umzusetzende Ideen geben, wie ich den ganzen baum auf Form1 darstellen könnte??
erste ideen von mir waren irgendwie mit Canvas was zu machen, kam dabei aber nicht weiter...eine zweite idee war ganz viele labels zu benutzen, das erschien mir aber 1) zu kompliziert, 2) würde es nicht besonders aussehen

also ich hoffe ihr habt alles verstanden danke schonmal für alle Vorschläge

cu gregor