Вопросы по TreeView

function CheckTreeOk(TreeView: TdbTreeView; FromIndex, ToIndex: integer): boolean;
var
    i: integer;
begin
    result := True;
    i := ToIndex;
    while TreeView.GetLevel(i) > 0 do
    begin
        i := TreeView.GetParent(i);
        if i = FromIndex then
        begin
            Result := False;
            Break;
        end;                        
    end;
end;


procedure perenos_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin
    if CheckTreeOk(Form1.TreeView1, Form1.TreeView1.SelectedRow, perenos.TreeView1.SelectedRow) then
    begin
        //Перед перемещением помогите сделать проверку чтобы нельзя было переносить ниже по этой ветке
        SQLExecute('UPDATE skup SET ParrentID='+IntToStr(perenos.TreeView1.dbItemID)+' WHERE id='+IntToStr (Form1.TreeView1.dbItemID)+' ');// Переносим записи меняем Parrent ID у выбранной записи
        Form1.TreeView1.dbUpdate;
        perenos.Close;
    end else ShowMessage('You can''t');
end;

procedure new_poruch_TreeView1_OnChange (Sender: TObject);  // Раскрашиваем Дерево
var
c, i:integer;
begin
   //new_poruch.TreeView1.Columns[1].Visible:= False;  //Скрываем колонку ID Parrent
   new_poruch.TreeView1.BeginUpdate;
   c := new_poruch.TreeView1.RowCount - 1;
   for i := 0 to c do
    begin
    if new_poruch.TreeView1.Cells[1,i] = '0'  then    //если запись первого уровня то делаем раскраску
    begin
    new_poruch.TreeView1.SelectedRow :=0; //перемещаем курсор на первую строку
    new_poruch.TreeView1.Cell[0,i].TextColor := $008A4500;  //если стартовое поручение то окрашиваем текст  в синий цвет
    new_poruch.TreeView1.Cell[0,i].FontStyle := fsBold;  //Если поручение Раздел то делаем его жирным
    new_poruch.TreeView1.Cell[0,i].Color := $00E0E0E0;   // Заливаем фон
    new_poruch.TreeView1.Cell[1,i].Color := $00E0E0E0;   // Заливаем фон
    new_poruch.TreeView1.Cell[2,i].Color := $00E0E0E0;   // Заливаем фон
    new_poruch.TreeView1.Cell[3,i].Color := $00E0E0E0;   // Заливаем фон
    end;
    end;
   new_poruch.TreeView1.EndUpdate; 
end;