Fórum WriteLn Onde Estou Errando ? #351547

Pessoal, sempre que mando executar essa rotina o delphi me retorna o erro I/O 105. Onde estou errando ?


AssignFile(ArqText, varNomeArq );
If FileExists( varNomeArq ) Then
ReWrite( arqText )
Else
ReWrite( arqText );
Try

WriteLn(´191100200500002REFERENCIA: ´ + Trim ( OrdemProdQRY.FieldByName( ´B1_ECREF´ ).AsString));
WriteLn(´191100200380002LARGURA: ´ + OrdemProdQRY.FieldByName( ´G1_ECLARG´ ).AsString);
WriteLn(´191100200380205OP: ´ + OrdemProdQRY.FieldByName( ´C2_OP´ ).AsString);
WriteLn(´191100200240002QTD. ETQ: ´ + OrdemProdQRY.FieldByName( ´G1 ECETQRL´ ).AsString);
WriteLn(´191100200240098UN.: ´ + OrdemProdQRY.FieldByName( ´C2_UM´ ).AsString);
WriteLn(´191100200240148POL: ´ + OrdemProdQRY.FieldByName( ´Z2_TUBETE´ ).AsString);
varTempoCampo := OrdemProdQRY.FieldByName( ´C2_DATPRF´ ).AsString;
varTempoString := Copy( varTempoCampo, 7,2 ) + ´/´ + Copy( varTempoCampo, 5,2 ) + ´/´ + Copy( varTempoCampo, 1,4 );
WriteLn(´191100200120098DATA:´ + varTempoString );
WriteLn(´1e6203500010205´ + OrdemProdQRY.FieldByName( ´C2_Produto´ ).AsString );
WriteLn(´Q´ + StrZero(QtdEtqEDT.Text, 4));
WriteLn(´E´);
Finally;
CloseFile( ArqText )
End;