TreeView aus DB füllen

[Christian18]

Ok,

das funktioniert erst einmal. Und wie kann ich jetzt die ersten Untereinträger aus der zweiten Tabelle machen???

Hier mein code:

Delphi-Quellcode:

procedure TFMain.Button1Click(Sender: TObject);
begin
  Gauge1.MinValue:=1;
  Gauge1.MaxValue:=Table1.RecordCount;
  while not Table1.Eof do
    begin
      TreeView1.Items.AddChild(nil, Table1.FieldByName('Feldname').AsString);
      while not
      Table1.Next;
      Gauge1.Progress:=Gauge1.Progress + 1;
    end;
end;

MFG Christian18