TLvlGraphControl

  with Your_LvlGraphControl do begin
    Images := Your_ImageList;
    NodeStyle.Shape := lgnsNone;
    NodeStyle.CaptionScale:= 1.2;
    NodeStyle.Width := 10;
    NodeStyle.GapTop := 15;
    NodeStyle.GapLeft := 15;
    NodeStyle.GapRight := 15;
    NodeStyle.GapBottom := 8;
    NodeStyle.CaptionPosition := lgncBottom;
    Font.Size := 8;
  end;

  for i := 0 to 500 do begin
      with Your_LvlGraphControl do begin
         Graph.GetNode('', true).ImageIndex:= 0;      //номер изображения, тут сами можете определить привязку
         Graph.GetNode('', true).OverlayIndex := i + 777; //индекс
         Graph.GetNode('', true).Caption := IntToStr(i+777); //название элемента
      end;
  end;

  for i := 0 to 250 do begin
    with Your_LvlGraphControl do begin
       if Graph.Nodes[i].OverlayIndex = i + 777
          then Node1 := Graph.Nodes[i];
       if Graph.Nodes[i+1].OverlayIndex = i + 778
          then Node2 := Graph.Nodes[i+1];
       Graph.GetEdge(Node1, Node2, true);
      end;
  end;

  //заполняем людьми сетку - сперва всех кидаем на сетку
  with Your_LvlGraphControl do begin
    Graph.GetNode('', true).ImageIndex:= 1;
    Graph.GetNode('', true).IndexInLevel := 2;
    Graph.GetNode('', true).OverlayIndex := 1123;
    Graph.GetNode('', true).Caption := 'Иванов И.И.';
 
    Graph.GetNode('', true).ImageIndex:= 2;
    Graph.GetNode('', true).DrawPosition := 200;  //отступ
    Graph.GetNode('', true).OverlayIndex := 1121;
    Graph.GetNode('', true).Caption := 'Петров П.П.';
  end;
 
  //связываем
  with Your_LvlGraphControl do begin
     for i := 0 to Graph.NodeCount-1 do begin
         if Graph.Nodes[i].OverlayIndex = 1123
            then Node1 := Graph.Nodes[i];
         if Graph.Nodes[i].OverlayIndex = 1121
            then Node2 := Graph.Nodes[i];
     end;
     Graph.GetEdge(Node1, Node2, true);
     Graph.SingleSelect(Node1);
  end;

var
  LGNode: TLvlGraphNode;
  IndexNode: Integer;
begin
  LGNode:=Your_LvlGraphControl .SelectedNode;
  if LGNode=nil
     then exit
     else begin
            ShowMessage(LGNode.Caption);
            ShowMessage('LGNode.OverlayIndex=' + IntToStr(LGNode.OverlayIndex));
 ...........