なるほど、B、Eがレベル0でAが存在しないと。
それじゃ、

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(IntToStr(TreeView1.Items[0].getNextSibling.AbsoluteIndex));
end;

必要な回数getNextSibling繰り返せばﾖｼ! (ﾟдﾟ)