I/O ERROR 105 +imprimir desde delphi

[IVAND]

Me parece excelente la idea ahora no estoy en la oficina , pero en la medida de lo posible lo colocare, ya esta funcionando solo cambie las 3 primeras lineas asignando variables a los datos y funciono ej.

A:=Data.empresa.fieldByname('Nombre_empresa').value;
B:=Data.empresa.fieldByname('RUC').value;
C:=Data.empresa.fieldByname('Direccion').value;

Writeln (Txt,A);
Writeln (Txt,B);
Writeln (Txt,C);


... Todo el codigo siguiente


Gracias