Cómo puedo guardar el contenido de un TtreeView en una tabla Paradox

procedure Tform1.GuardarClick(Sender: TObject);
var
  N:byte;
Begin
// Borro el contenido de la tabla
  TablaX.Active:=True;
  while not TablaX.Eof do
  begin
    TablaX.delete;
  end;
  TablaX.Active:=False;

// ejecuto un pack a ella contenido en una Unit que llamo "funciones"
  funciones.PackTablas('BDatos', 'TablaX.db',Self);

  // Supongo dos campos: nodo -> string ; campo -> Alfanumerico

  TablaX.Active:=True;
  For N := 0 To TTreeY.Items.Count -1 Do
  begin
    TablaX.Append;
    TablaX.fieldbyName('nodo').Text:= InttoStr(TTreeY.Items[N].level);
    TablaX.fieldbyname('campo').Text:= TTreeY.Items[N].Text;
  end;
  TablaX.Post;
  TablaX.Active:=False;
end;