DB Access und While??????

[Funjoy]

Hallo Delphi coder,

Ich habe ein kleines Problem mit einer ausgabe von Daten aus meiner Access DB. Ich bin noch neuling in Delphi bzw. Object Pascal und weiß nun nicht mehr weiter
Also meine DB ist folgendermaßen aufgebaut:
http://people.freenet.de/funjoy/screenDB.gif

So nun soll er mir alle Daten in ein TreeView ausgeben und richtig ein sortieren. Dazu habe ich folgende Funktion geschrieben:

Delphi-Quellcode:

function TfrmAppOption.entrys(i: Integer): TTreeNode;
var st: String;
    x: Integer;
    en: TTreeNode;
 begin
   SQL.Active := false;
   SQL.CommandText := 'SELECT*FROM app WHERE einordnung='+IntToStr(i)+' ORDER BY sort';
   SQL.Active := true;
   while not SQL.Eof do
    begin
      if SQL.FieldByName('einordnung').AsInteger = 0 then
       begin
         with Tree.Items do
          begin
            st := SQL.FieldByName('appname').AsString;
            entrys := Add(nil,st);
          end;
       end
      else
       begin
         with Tree.Items do
           begin
           st := SQL.FieldByName('appname').AsString;
           en := Tree.Items.GetFirstNode;
           entrys := ADDChild(en,st);
           end;
       end;
       entrys(SQL.FieldByName('id').AsInteger);
       SQL.Next;
    end;    
 end;

die Funktion rufe ich dann über eine OnShow Methode auf:

Delphi-Quellcode:

procedure TfrmAppOption.TabSheet1Show(Sender: TObject);
 begin
   Tree.Items.Clear;
   entrys(0);
 end;

Nun Compliere ich das Ganze und Schau mir das Ergebnis an doch er gibt mir nur folgendes Aus:
Java Script
- Alert Box

Warum geht er nicht alles durch und liefert folgendes Ergebnis:
Java Script
- Alert Box
- PopUp

PHP
- Echo

Bitte Um Hilfe

MfG Funjoy