Fórum Está correta minha rotina para TEF? #351294

Olá!

Tenho em meu sistemas, os seguintes códigos:

[b:ddb6bce745]Para criar o arquivo INTPOS.TMP na pasta REQ e adicionar os campos e após isso, renomear o arquivo para INTPOS.001.[/b:ddb6bce745]
[i:ddb6bce745]procedure TForm1.btnBanricomprasClick(Sender: TObject);
VAR
F: TEXTFILE;
S: STRING;
begin
AssignFile(F,´C:\TEF_DISC\BANRISUL\Req\IntPos.tmp´);
REWRITE(F); //cria arquivo
S:=´000-000 ´ + ´= ´ + dbeHeader.Text;
WRITELN(F,S);//adiciona nova linha no arquivo
S:=´001-000 ´ + ´= ´ + dbeIdentificacao.Text;
WRITELN(F,S);//adiciona nova linha no arquivo
S:=´002-000 ´ + ´= ´ + dbeDocFiscal.Text;
WRITELN(F,S);
S:=´003-000 ´ + ´= ´ + dbeValorTotal.Text;
WRITELN(F,S);
S:=´004-000 ´ + ´= ´ + dbeMoeda.Text;
WRITELN(F,S);
S:=´005-000 ´ + ´= ´ + dbeCMC7.Text;
WRITELN(F,S);
S:=´006-000 ´ + ´= ´ + dbeTipoPessoa.Text;
WRITELN(F,S);
S:=´007-000 ´ + ´= ´ + dbeDocPessoa.Text;
WRITELN(F,S);
S:=´008-000 ´ + ´= ´ + dbeDataCheque.Text;
WRITELN(F,S);
S:=´010-000 ´ + ´= ´ + dbeNomeRede.Text;
WRITELN(F,S);
S:=´012-000 ´ + ´= ´ + dbeNumTransacao.Text;
WRITELN(F,S);
S:=´022-000 ´ + ´= ´ + dbeDataTransacao.Text;
WRITELN(F,S);
S:=´023-000 ´ + ´= ´ + dbeHoraTransacao.Text;
WRITELN(F,S);
S:=´027-000 ´ + ´= ´ + dbeFinalizacao.Text;
WRITELN(F,S);
S:=´033-000 ´ + ´= ´ + dbeBanco.Text;
WRITELN(F,S);
S:=´034-000 ´ + ´= ´ + dbeAgencia.Text;
WRITELN(F,S);
S:=´035-000 ´ + ´= ´ + dbeAgenciaDC.Text;
WRITELN(F,S);
S:=´036-000 ´ + ´= ´ + dbeContaCorrente.Text;
WRITELN(F,S);
S:=´037-000 ´ + ´= ´ + dbeContaCorrenteDC.Text;
WRITELN(F,S);
S:=´038-000 ´ + ´= ´ + dbeNumeroCheque.Text;
WRITELN(F,S);
S:=´039-000 ´ + ´= ´ + dbeNumeroChequeDC.Text;
WRITELN(F,S);
S:=´041-000 ´ + ´= ´ + dbeCodBarras.Text;
WRITELN(F,S);
S:=´042-000 ´ + ´= ´ + dbeTrailer.Text;
WRITELN(F,S);
CLOSEFILE(F);//fecha arquivo
RenameFile(´C:\TEF_DISC\BANRISUL\Req\IntPos.tmp´,´C:\TEF_DISC\BANRISUL\Req\IntPos.001´);
end;[/i:ddb6bce745][b:ddb6bce745]
[b]
Fazer a leitura do arquivo INTPOS.001 da pasta RESP:[/b:ddb6bce745]
[i:ddb6bce745]procedure TForm1.btnLerClick(Sender: TObject);
begin
If FileExists(´C:\TEF_DISC\BANRISUL\Resp\IntPos.001´) = False Then
begin
ShowMessage(´Arquivo inativo!´);
end
else
begin
frmIntPos := TfrmIntPos.Create(Self);
try
frmIntPos.ShowModal;
finally
frmIntPos.Free;
end;
end;
end;[/i:ddb6bce745]

[b:ddb6bce745]Quando mostrar o formulário onde está o MEMO, com as linhas do INTPOS.001 da pasta RESP:[/b:ddb6bce745]
[i:ddb6bce745]procedure TfrmIntPos.FormShow(Sender: TObject);
var
Arquivo :TextFile;
Linha :String;
{
Fazer um LOOP no arquivo, abrindo-o
e lendo de linha-a-linha, adicionando no Memo.
}
begin
AssignFile(Arquivo, ´C:\TEF_DISC\BANRISUL\Resp\IntPos.001´);
Reset(Arquivo);
Repeat
ReadLn(Arquivo,Linha);
Memo1.Lines.Add(Linha);
until EOF(Arquivo);
end;[/i:ddb6bce745]


Só não sei pq os campos Agência e Conta Corrente aparecem, respectivamente, como 1234 e 1234567890, ao invés de retornar os valores que eu preenchi em meus edits.

O que pode estar errado em meus códigos?

Grato pela atenção.[/b]