Mercury13

type
  TfmMain = class (TForm)
  .....
  protected
    procedure CreateParams(var Params : TCreateParams); override;
  end;

procedure TfmMain.CreateParams(var Params : TCreateParams);
begin
  inherited;
  // а затем подкорректируй Params по собственному желанию.
end;

алг рекурсия(узел: Узел)
  длина_мас = 0

  // Прогоним алгоритм для сыновей, рассчитаем длину массива
  для всех сыновей (узел) → сын
    рекурсия(сын)  // ыгы, в основе банальный обход в глубину
    длина_мас = макс(длина_мас, сын.границы.длина)
  длина_мас = длина_мас + 1

  разложить сыновей на плоскости, руководствуясь их массивами границ
     и вашим чувством прекрасного;  соответственно присвоить ИХ deltaX
     (оставлю это как домашнее задание)

  // Рассчитаем границы дли нашего узла
  границы.установить_размер(длина_мас)  
  границы.заполнить(левая=+M, правая=—M)
  полширины = узел.ширина / 2
  границы[0] = (левая = −полширины, правая = узел.ширина − полширины)
  для всех сыновей (узел) → сын
    для i = [0 .. сын.границы.длина)      
      узел.границы[i+1].левая = мин(
           узел.границы[i+1].левая, сын.границы[i].левая + сын.deltaX)
         // если сыновья идут слева направо, этого хватает!
      узел.границы[i+1].правая = сын.границы[i].правая + сын.deltaX
    сын.границы.установить_размер(0)    // массив больше не нужен

// Если же нужны точные координаты каждого узла…

алг уточнитьКоординаты(узел: Узел; Y: целое)
  узел.коорд.Y = Y
  Yсына = Y + высота_яруса
  для всех сыновей (узел) → сын
    сын.коорд.X = узел.коорд.X + сын.deltaX
    уточнитьКоординаты(сын, Yсына)