3.2 - Não faça "bump" de forma excessiva (postar simplesmente para que um tópico vá para o topo da lista). Isso é considerado flooding.
Favor leia as regras do fórum.
Esse trecho não ficou bom!
No caso mudou de TFileStream pra TStringList!
procedure TACBrSPEDContabil.TotalizarTermos;
var
txtIn,txtOut: TextFile;
sTotal,sLinha,sFileNameTmp: String;
begin
sTotal := FACBrTXT.LFill(Bloco_9.Registro9999.QTD_LIN, 9, false);
sFileNameTmp := FACBrTXT.NomeArquivo + '.tmp';
// Renomear Arquivo gerado e abrir no TxtIn
RenameFile(FACBrTXT.NomeArquivo, sFileNameTmp);
AssignFile(TxtIn, sFileNameTmp);
Reset(TxtIn);
// Novo Arquivo a ser gerado e abrir no TxtOut
AssignFile(TxtOut, FACBrTXT.NomeArquivo);
Rewrite(TxtOut);
// Trocar [*******] somente nas linhas que existem
try
while not Eof(TxtIn) do
begin
Readln(TxtIn, sLinha);
if Copy(sLinha,1,6)='|I030|' then
sLinha:=StringReplace(sLinha,'[*******]',sTotal,[rfReplaceAll]);
if Copy(sLinha,1,6)='|J900|' then
sLinha:=StringReplace(sLinha,'[*******]',sTotal,[rfReplaceAll]);
Writeln(TxtOut, sLinha);
end;
finally
CloseFile(TxtIn);
CloseFile(TxtOut);
DeleteFile(sFileNameTmp)
end;
end;