% var aTopicList: THndTopicsInfoArray; nBlocLevel: integer = 0; nCurTopic, nCurTopicLevel, nDif, nClose: integer; sProjectTitle: string; begin sProjectTitle := HndProjects.GetProjectTitle(); aTopicList := HndTopicsEx.GetTopicListGenerated(False, False); %>