Возможно я что то не понимаю, но где вычисляется переменная N:
Код:
Memo1.Lines.Add('Буква: "' + Ch + '", использована = ' + IntToStr(AStat[Ch])+' '+RaziliRazi(N));
а так как она глобальная, то всегда иницирована 0, т.е. всегда будет подставляться 'раз'.