Fórum Problemas na Importação para txt #174339

Prezados amigos,
Estou importando o conteúdo de uma tabela com um componente TQuery e quando termina a importação para o txt à última linha sai cortada, apesar da varíavel ser carregada com as informações completas. o código abaixo é o que eu uso :
//Tabela G:\TRAB\PMN\PMN2003\ELO\ELO_ORG.DBF
DmFox.QueryOrgao.ParamByName(´ano´).Value := ANO;
DmFox.QueryOrgao.Open;
DmFox.QueryOrgao.First;
AssignFile(F,´D:\IMPORTSIGFIS\TXT\ORGAO.TXT´);
//Append(F);
Rewrite(F);
while not DmFox.QueryOrgao.Eof do
begin
Dados := trim(ANO); //´2003´;//ANO;
Dados := Dados+trim(edUnidade_Gestora.Text) + StringOfChar(´ ´, edUnidade_Gestora.MaxLength - Length(edUnidade_Gestora.Text));
Dados := Dados+dmFox.QueryOrgao.fieldbyname(´COD_ORG´).AsString;
Dados := Dados+dmFox.QueryOrgao.fieldbyname(´DESC_ORG´).AsString + StringOfChar(´ ´, dmFox.QueryOrgaoDESC_ORG.DisplayWidth - Length(dmFox.QueryOrgao.fieldbyname(´DESC_ORG´).AsString));
Dados := Dados+´000000´;
Dados := Dados+trim(edCPF.text);//CPF_RESPONSAVEL;
Dados := Dados+´1´;
writeln(F, Dados);
DmFox.QueryOrgao.Next;
end;
DmFox.QueryOrgao.Close;


o final do arquivo txt fica assim :

2003525 81SECRETARIA DE SERVIÇOS PÚBLICOS 20030826
2003525 41SECRETARIA MUNICIPAL DE EDUCAÇÃ20030841
2003525 61SECRETARIA DE SERVIÇOS PÚBLICOS 20030842
2003525 74SECRETARIA MUN. DE URB. MEIO AMB. 20030842
2003525 99RESERVA DE CONTIN


gostatria de saber se alguém tem alguma dica que pudesse me ajudar ?

atenciosamente,

Vinicius Pacca