Не получается заполнение TreeView из таблицы бд

[Paul Hindenburg]

Проект предельно прост - заполнение компонента treeview из табл.
процедура работает корректно только при подсоединении к гриду,
ошибка возникает при определении длины массива - запрос возвращает только 1-ю строку из запроса. в чем причина и как избавитсяот ошибки?
вот сама процедура заполнения:

procedure TForm1.Button2Click(Sender: TObject);
type
    Pnoder = ^noder;
    noder = record
    val : integer;
    end;
procedure fTreeFill(ParentNode : TTreeNode; ParentKey : Integer);
var
  ArrId : Array of Integer;
  ArrName : Array of String;
  i : Integer;
  PNode : TTreeNode;
  vetkadata:pnoder;
  keyData:Array of Integer;
begin
  with Form1.QuFill do
    begin
      Close;
      selectSQL.Clear;
      selectSQL.Add('select * from ORGSTRUKT where ParentID='+IntToStr(ParentKey));
      Open;
      SetLength(ArrId, RecordCount);
      SetLength(ArrName, RecordCount);
      SetLength(keyData, RecordCount);
      i := 0;
      while not EOF do
        begin
          ArrId[i] := FieldByName('Id').AsInteger;
          ArrName[i] := FieldByName('Name').AsString;
          keyData[i] := FieldByName('Id').AsInteger;
          Inc(i);
          Next;
        end;
      Close;
    end;
  for i:=0 to Length(ArrId)-1 do
    begin
      PNode := Form1.TreeView1.Items.AddChild(ParentNode, ArrName[i]);
      vetkadata:=new(pnoder);
      vetkadata.val:=0;
      PNode.Data:=vetkadata;
      pnoder(PNode.Data).val := keyData[i];
      fTreeFill(PNode,ArrId[i]);
    end;
form1.TreeView1.FullExpand;
end;

begin
 fTreeFill(nil,0) ;
end;

[dron-s]

какая СУБД? способ доступа?
не забыл ли ты сделать FetchAll у DataSet'а?

[Paul Hindenburg]

Сообщение от dron-s

какая СУБД? способ доступа?
не забыл ли ты сделать FetchAll у DataSet'а?

Да, да, да ....
я про это совсем забыл.

ЗЫ
СУБД Firebird

[dron-s]

СУБД Firebird

тогда ответ в посте номер два