escrevendo arquivo texto (trunca depois da 128)

E ae gente beleza?

cara to precisando muito da ajuda...

eu to fazendo o sped para o paf-ecf

e como no sintegra criar uma variavel string e outra textfile

atribuo na variavel string td que eu quero que va na linha

e depois uso o writeln para escrever...

mas o problema é que ele nao esta escrevendo depois do caracter 128...

tipo a variavel string chega com 137 caracteres mas no arquivo,

depois qdo abro para ver só tem os 128 primeiros!!

ja tentei de td... mas ele nao grava...

o codigo ta assim:

write(Arq, sLinha);

onde sLinha tem os 138 caracteres (ja debuguei, dei showmessage, td, ela tem os 138)

e Arq é setado como textfile e startado assim:

AssignFile(Arq, 'c:\sped.txt');

Rewrite(Arq);

uso delphi 7

obrigado