How To Fix Treenode in Treeview ???

var
treeview : TTreeview ;
treenode : TTreenode;
dt,dts : Tdataset ;
imagelist : Timagelist;
procedure Form1_TableGrid2_OnCellClick (Sender: string; ACol, ARow: Integer);
var
tp : Tdataset ;
begin
    SQLQuery(
    'SELECT * FROM mysql.help_topic WHERE help_topic_id ='+
    Form1.TableGrid2.Cells[0,Form1.TableGrid2.SelectedRow],tp);
    while not tp.eof do
    begin
        Form1.Memo1.Text := (  tp.fields.fields[3].asstring);
        Form1.Memo2.Text := (  tp.fields.fields[4].asstring);
        tp.next;
    end;
    tp.close ;
end;
procedure Form1_TableGrid1_OnCellClick (Sender: string; ACol, ARow: Integer);
begin
    Form1.TableGrid2.dbSQL:=
    'SELECT * FROM mysql.help_topic '+
    'WHERE help_category_id = '+Form1.TableGrid1.Cells[ 0, Form1.TableGrid1.SelectedRow  ]+' '+
    'ORDER BY help_category_id ,`name`' ;
    Form1.TableGrid2.dbSQLExecute ;
end;
begin
    //hide defult menu
    form1.mnifile.visible := false;
    form1.mnioptions.visible := false;
    form1.mnisettings.visible := false;
    form1.mnireport.visible:= false;
    form1.mniabout.visible := false;
    //create imagelist
    imagelist:=timagelist.create(form1);
    imagelist.masked:=false;
    imagelist.colordepth:=cd32bit;
    imagelist.width := 16;
    imagelist.height := 16;
    imagelist.addpng(extractfilepath(application.exename)+'00.png');//index 0 ok
    imagelist.addpng(extractfilepath(application.exename)+'01.png');//index 1 cancel
    //Show Table For Into Treeview
    Form1.TableGrid1.dbSQL := 'SELECT * FROM mysql.help_category' ;
    Form1.TableGrid1.dbSQLExecute ;
    Form1.TableGrid1.BestFitColumns(bfBoth);
    //create Frame Treeview
    Treeview := TTreeview.Create(Form1);
    Treeview.Parent := Form1.Panel1 ;
    Treeview.Align := alClient;
    Treeview.ShowButtons := True ;
    Treeview.AutoExpand := True ;
    Treeview.Images := Imagelist ;
    Treeview.StateImages  := Imagelist ;
    Treeview.FullExpand ;
    //create dataset for into treenode
    SQLQuery('SELECT * FROM mysql.help_category',dt);
    //start dataset from start to end for add treenode
    while not dt.eof do
    begin
        treenode := Treeview.Items.Add(nil,'');
        Treenode.Text := dt.fields.fields[1].asstring ;
        SQLQuery(
        'SELECT * FROM mysql.help_topic WHERE help_category_id = '+ dt.fields.fields[0].asString
        +' ORDER BY help_category_id ,`name` ' ,dts);
        while not dts.eof do
        begin
            //treenode :=
            Treeview.Items.AddChild(treenode,dts.fields.fields[1].asstring);
            dts.next;
        end;
        dts.close;
        dt.next;
    end;
    dt.close;
end.