procedure TForm1.Button1Click(Sender: TObject);
begin
//заполняем дерево узлами и выводим первых потомков
IBQuery2.Close;
IBQuery2.SQL.Clear;
IBQuery2.SQL.Add('select ID,NAME from treedb where pid=0');
IBQuery2.Open;
end;

procedure TForm1.DBGrid2DblClick(Sender: TObject);
 var td:integer;
begin
// проваливаемся по родительским узлам
td:=DBGrid2.DataSource.DataSet.FieldValues['id'];
begin
IBQuery2.Close;
IBQuery2.SQL.Clear;
IBQuery2.SQL.Add('select NAME,ID from treedb where pid=:test');
IBQuery2.ParamByName('test').Value:=td;
IBQuery2.Open;
end;