Отсортировать в запросе сначала папки, а затем элементы по алфавиту

{Разворачиваем уровень дерева Контрагентов}
Procedure TForm1.ExpandLevel( Node : TTreeNode);
Var ID , i, RCount : Integer;
    TreeNode : TTreeNode;
Begin
 // Для самого верхнего уровня выбрать только тех,
    // кто не имеет родителей.
    IF Node = nil Then ID:=0
    Else ID:=Integer(Node.Data);
 
    DM1.QContra.Close;
    DM1.QContra.SQL.Clear;
    DM1.QContra.SQL.Add('Select count(*) as C From Contra Where PARENTID=:ID');
    DM1.QContra.Params.ParamByName('ID').Value :=ID;
    DM1.QContra.open;
    RCount:=DM1.QContra.fieldByName('C').AsInteger;
    DM1.QContra.Close;
    DM1.QContra.SQL.Clear;
    {declarepar;}
    DM1.QContra.SQL.Add('Select * From Contra Where PARENTID=:ID ORDER BY NAIM_C');
    DM1.QContra.Params.ParamByName('ID').Value :=ID;
    DM1.QContra.Open;
    TreeContra.Items.BeginUpdate;
 
    For i:=1 To RCount Do
    Begin
// Запишем в поле Data ветки ее идентификационный номер(ID) в таблице
 TreeNode:=
 TreeContra.Items.AddChildObject(Node, DM1.QContra.FieldByName('NAIM_C').AsString
 ,Pointer(DM1.QContra.FieldByName('ID').AsInteger));
 TreeNode.ImageIndex:=1;
 TreeNode.SelectedIndex:=2;
// Добавим фиктивную (пустую) дочернюю ветвь только для того,
       // чтобы был отрисован [+] на ветке и ее можно было бы раскрыть
 TreeContra.Items.AddChildObject(TreeNode ,'' , nil);
 DM1.QContra.Next;
    End;
    TreeContra.Items.EndUpdate;
 
End;