Нестандартная сортировка в TreeView

procedure CreateStandNodes(Parent:TTreeNode);
var
  okp_id, Text:string;
  MyRecPtr:array of PDataStand;
  i:integer;
  node:TTreeNode;
  Node1, Node2: TTreeNode; Data: Integer;
begin
  //Ищем изделия, которые входят в этот класс
  okp_id:=IntToStr(PDataStand(Parent.Data)^.ID);
  StdMainForm.ADOQuery.SQL.Clear;
  StdMainForm.ADOQuery.SQL.Add('Select Stand.Stand_ID,Stand.Mark,Stand.Type,Gost.Name, Stand.Prd, Stand.Symbol, Stand.Name as ProductName from Stand, Gost');
  StdMainForm.ADOQuery.SQL.Add('where Stand.OKP_ID='+QuotedStr(okp_id));
  StdMainForm.ADOQuery.SQL.Add('and Gost.Gost_ID=Stand.Gost_ID');
  try StdMainForm.ADOQuery.Open;
  except
    on E:Exception do begin
      ShowMessage(E.Message);
      Exit;
    end;
  end;
  //Выводим в дереве изделия, относящиеся к указанному классу
  if StdMainForm.DataSource.DataSet.RecordCount=0 then begin
    //Изделий в классе нет
  //  Parent.Delete;
  //  DeleteEmptyParents(Parent);
    Parent.HasChildren:=False;
    Exit;
  end;
  with StdMainForm.DataSource.DataSet do begin
    SetLength(MyRecPtr, RecordCount);
    StdMainForm.TreeStandart.Items.BeginUpdate;
    for i:=0 to RecordCount-1 do begin
      new(MyRecPtr[i]);
      //формирование записи в дереве (последовательность атрибутов в записи)
      if FieldByName('Type').AsInteger=0 then
        MyRecPtr[i]^.ObjectType:=soERE
      else
        MyRecPtr[i]^.ObjectType:=soStand;
        if FieldByName('Prd').AsInteger=0 then begin
          if FieldByName('Symbol').AsInteger=0 then
          Text:=FieldByName('ProductName').AsString+' '+FieldByName('Name').AsString+' '+FieldByName('Mark').AsString else
          if FieldByName('Symbol').AsInteger=1 then
          Text:=FieldByName('ProductName').AsString+' '+FieldByName('Name').AsString+' '+'-'+' '+FieldByName('Mark').AsString else
          if FieldByName('Symbol').AsInteger=2 then
          Text:=FieldByName('ProductName').AsString+' '+FieldByName('Name').AsString+''+'-'+''+FieldByName('Mark').AsString;
         end else
        Text:=FieldByName('ProductName').AsString+' '+FieldByName('Mark').AsString+' '+FieldByName('Name').AsString ;
      MyRecPtr[i]^.ID:=FieldByName('stand_id').AsInteger;
      MyRecPtr[i]^.OKP_ID:=PDataStand(Parent.Data)^.ID;
      node:=StdMainForm.TreeStandart.Items.AddChildObject(Parent, text, MyRecPtr[i]);
      case MyRecPtr[i]^.ObjectType of
        soERE:begin
            node.ImageIndex:=IconStandERE;
            node.SelectedIndex:=IconStandERE;
          end;
        soStand:begin
            node.ImageIndex:=IconStandSTD;
            node.SelectedIndex:=IconStandSTD;
          end;
      end;
      Next;
    end;
    StdMainForm.TreeStandart.Items.EndUpdate;
  end;
end;

TmyName = class
  stroka
  s
  t
  r
  o
  k
  a
end;