Senhores, boa tarde. Estou tentando implementar o TEF IP na minha aplicação utilizando o ACBRTEFD, mas esta ocorrendo o erro em anexo. Será que alguém pode me ajudar a encontrar uma solução. Só ocorre erro nesta procedure. O resto esta funcionando blz
unit pdv_Global;
// ACBRTEF
{$IFDEF FPC}
{$mode objfpc}{$H+}
{$ENDIF}
interface
uses
SysUtils, WinTypes, WinProcs, Messages, Classes, graphics, Controls, Dialogs,
Forms, StdCtrls, Mask, DBCtrls, DB, DBTables, grids, Buttons,
DBgrids, Printers, typinfo, IniFiles, DBClient, mdLauncher, ExtCtrls, IdGlobal,
RDprint,Provider, IBExtract, DateUtils, uge_util, variants,
IdBaseComponent, IdComponent, IdRawBase, IdRawClient, IdIcmpClient,
MPlayer, Registry,
TLHelp32, rxToolEdit, rxCurrEdit, Windows,
StrUtils, ACBrBase, ACBrLCB,
ACBrUtil , ACBrTEFD, ActnList, ACBrECF, ACBrTEFDClass,
{$IFDEF Delphi6_UP}Types, Variants, DateUtils, {$ELSE} ACBrD5,{$ENDIF}
ACBrDevice, sSkinManager, ACBrTEFDCliSiTef, ComCtrls;
{IdBaseComponent, IdComponent, IdRawBase,IdRawClient, IdIcmpClient, MPlayer,}