Código Delphi [-] Writeln (Txt,Data.empresa.fieldByname('Nombre_empresa').AsString); ....
Writeln (Txt,Data.empresa.fieldByname('Nombre_empresa').AsString); ....