Tambem verifiquei isso colega, e o que observei é que os índices do Array ( TUFString ) está diferente do tpuf, eu corrigi colocando na posição correta, pois o tipo ufNenhum no array TUFString tem que está na mesma ordem, exemplo:
TUFString : array[0..27] of String = (",'AC','AL','AP','AM','BA','CE','DF','ES','GO',
'MA','MT','MS','MG','PA','PB','PR','PE','PI',
'RJ','RN','RS','RO','RR','SC','SP','SE','TO');
alterar a posicao do primero indice como vazio para ficar correto e não começar com AC e o ultimo índice ser TO e não " ", espero que tenha ajudado