Função não tá funcionando

Fiz uma função para qdo for imprimir em Modo Texto, a impressora(LX 300) possa reconhecer os caracteres especiais(acentos, cedilhas e etc)
e outra para ajustar valores e strings. Essas duas funcionam mais a q transforma ANSI para ASCII, não. Eis elas:
AnsiToAscii(str:string):string;
var
i:integer;
begin
for i := 1 to length(str) do
case string of str[i] do
´ã´:str[i]:=´a´;
´á´:str[i]:=´a´;//e assim sucessivamente até todos os caracteres especiais
end;
end;
AjustaStr(str:string;tam:integer):string;
begin
while length(str) < tam do
str:=str+´ ´;
if length(str) > tam then
str:=copy(str,1,tam)
result:=str;
end;
a outra semelhante a esta, só que os espaços eu os coloco antes da string e não depois. Na chamada eu faço assim:
var
arq:textfile;
begin
assignfile(arq, ´LPT1´);
rewrite(arq);
writeln(arq, #15);
writeln(arq,+AnsiToAscii(AjustaStr(TabelaStringSerImpressa.Value, tam);
//Normalmente dentro de um While, para imprimir tudo. Desta forma, não funciona. porem ae eu retirar, a função AnsiToAscii, funciona bem, sem nenhum problema, tanto a AjustaStr quanto a AjustaNum. Poem se chamo AnsiToAscii, não imprime o campo ou a string, que a função está cobrindo. O que pode ser? A função está correta,
end;
E aproveitando a boa vontade, como faço para reimprimir numa lista de preços(usando textfile) o nome do grupo a que pertence o produto?
Ex: Quando for listar todos os amortecedores, apareça um tipo de cabeçalho, com o nome do grupo AMORTECEDOR, e todos os amortecedores, qdo terminar e começar, por exemplo, Faróis, que escreva Farol em cima e em baixo todos os faróis e assim por diante.