Fórum Delphi 7: Problema com caracter especial (SUB 1A Hexadecimal). #590185

Pessoal, preciso muito de uma ajuda!

Uso Delphi 7 e tenho uma rotina para leitura de arquivo texto:
AssignFile(tArquivo,sArqEnt);
Reset(tArquivo);
while not Eof(tArquivo) do
begin
Readln(tArquivo,sLinha);
end;
CloseFile(tArquivo);

***acontece que em algumas linha encontrei caracteres especiais (1A Hexadecimal....SUB), este caractere finaliza o arquivo ocultando tudo que esta após ele. Para constar tentei uma outra forma, passei a ler o arquivo através de um Stringlist, substituindo os caracteres especiais, porem ao salvar o arquivo e corrompe todos os acentos do arquivo, ou seja eu resolvo um problema a arrumo outro. Segue abaixo o código:

slArquivo := TStringList.Create;
slArquivo.LoadFromFile(sArqEnt);
for i := 0 to slArquivo.Count - 1 do
begin
if ContainsText(StringToHex(slArquivo[i]), '1A') then
slArquivo[i] := HexToString(TrocaValor(StringToHex(slArquivo[i]),'1A','20'));
and;
slArquivo.SaveToFile(sArqEnt); // Ele salva o arquivo com todos os caracteres de acentuação corrompidos.