%
var
aKeywordList: THndKeywordsInfoArray;
var
nBlocLevel: integer = 0;
var
nCurKeyword, nCurKeywordLevel, nCurKeywordTopic, nDif, nClose: integer;
var
sCurKeyword, sProjectTitle: string;
var
sKeywordLink, sKeywordOnClick: string;
var
aAssociatedTopics: array of string;
begin
sProjectTitle := HndProjects.GetProjectTitle();
aKeywordList := HndKeywords.GetKeywordList(False);
%>