Search options (Page 2 of 5)

попробуйте так

procedure All_koresp_Button10_OnClick (Sender: string; var Cancel: boolean);  // В зависимости от введенных данных в поиске формируем условие WHERE в SQL запросе
var
    s, sWhere: string;
begin
     sWhere := '';
     if All_koresp.ComboBox1.Text <> '' Then sWhere := sWhere + 'kan_grup.id_kan_tip= {ComboBox1} AND ';
     if All_koresp.ComboBox2.Text <> '' Then sWhere := sWhere + 'documentiki.id_kan_grup= {ComboBox2} AND ';
     if All_koresp.ComboBox3.Text <> '' Then sWhere := All_koresp.Edit11.Text + 'documentiki.id_organization={ComboBox3} AND ';
     if All_koresp.Edit6.Text <> '' Then sWhere := sWhere + 'documentiki.god_docum LIKE ''{Edit6}'' AND ';
     if All_koresp.Edit8.Text <> '' Then sWhere := sWhere + 'documentiki.Reg_nom LIKE ''%{Edit8}%'' AND ';
     if All_koresp.Edit7.Text <> '' Then sWhere := sWhere + 'documentiki.kr_soder LIKE ''%{Edit7}%'' AND ';
     if All_koresp.Edit9.Text <> '' Then sWhere := sWhere + 'documentiki.Reg_nom_otprav LIKE ''%{Edit9}%'' AND ';

     if All_koresp.CheckBox1.State = cbChecked Then
     begin
         sWhere := sWhere + 'documentiki.Ob_prosm=1'
     end;

     if All_koresp.CheckBox1.State = cbUnchecked Then
     begin
     if (All_koresp.Edit3.Text <> '') and (All_koresp.Edit4.Text <> '') Then sWhere := sWhere + '((documentiki.DP1 LIKE ''{Edit3}'' AND documentiki.DP2 LIKE ''{Edit4}'') OR (documentiki.PP1 LIKE ''{Edit3}'' AND documentiki.PP2 LIKE ''{Edit4}''))';
     if (All_koresp.Edit3.Text = '') and (All_koresp.Edit4.Text = '') Then sWhere := sWhere + '1=1';
     if (All_koresp.Edit3.Text <> '') and (All_koresp.Edit4.Text = '') Then sWhere := sWhere + '(documentiki.DP1 LIKE ''{Edit3}'' OR documentiki.PP1 LIKE ''{Edit3}'')';
     end;

     s := All_koresp.Button9.dbSQL;
     s := ReplaceStr(s, '{Edit11}', sWhere);
     All_koresp.Button9.dbSQL := s;
end;

Проверкую можно сделать так

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;

А вот то, что ветки не отображается, это ошибка в программе, поправлю.