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