иерархическая структура объектов, Delphi 7 Опции

[18192123]

Здравствуйте!
Есть тема "Иерархия структуры таблицы Менделеева", в пределах которой нужно построить иерархию объектов, состоящей как минимум из 3-х уровней.
Для демонстрации работы построенной иерархии классов, создаётся приложение, позволяющее:
создавать, удалять объекты, изменять характеристики объектов, визуализировать объекты, манипулировать на форме объектами, сохранять/считывать текущее состояние объектов в формате XML.

Есть некоторые задумки насчёт иерархии (изображение)...Может кто-нибудь подскажет другой подход?
Ну а прежде всего - трудности с визуализацией и манипулированием объектами...Может быть у кого-нибудь есть идеи, как для начала идейно подойти к этим вопросам? что можно придумать? Подскажите пожалуйста..!

[18192123]

Спасибо!!)
Получилось, как и хотела!!)
И ещё один вопрос..в таком же духе..
Вот таким образом было сделано перемещение узлов в пределах TreeViewNew:

procedure TFormMain.MoveNode(TargetNode, SourceNode: TTreeNode);
var
nodeTmp: TTreeNode;
i: Integer;
begin
with TreeViewNew do
begin
   nodeTmp := Items.AddChildObject(TargetNode, SourceNode.Text, SourceNode.Data);
   for i := 0 to SourceNode.Count - 1 do
   begin
     MoveNode(nodeTmp, SourceNode.Item[i]);
   end;
end;
end;

procedure TFormMain.TreeViewNewDragDrop(Sender, Source: TObject; X,
  Y: Integer);
var
TargetNode, SourceNode: TTreeNode;
begin
with TreeViewNew do
begin
   TargetNode := GetNodeAt(X, Y); // Get target node
   SourceNode := Selected;
   if (TargetNode = nil) then
   begin
     EndDrag(False);
     Exit;
   end;
   MoveNode(TargetNode, SourceNode);
   SourceNode.Free;
end;
end;

procedure TFormMain.TreeViewNewDragOver(Sender, Source: TObject; X,
  Y: Integer; State: TDragState; var Accept: Boolean);
begin
 if (Sender = TreeViewNew) then // If TRUE than accept the draged item
begin
   Accept := True;
end;
end;

Можно ли как-нибудь учесть, чтоб перемещение осуществлялось в таком духе:
1-й ряд переместить только во 2-й период (ну и наоборот), исключая возможность чтоб ряд попал в группу??
ну по такой же схеме с остальным..Объясните пожалуйста!

Код

I период
   1 ряд
      I группа
      VIII группа
II период
   2 ряд
      I группа
      II группа