classe em package(bpl)...(como ??)

{ TAprisco }

 TAprisco = class
 private
   Sept: string;
   FValue: Integer;
   L1, L2, L3: string;
   Matriz_L: array[1..3] of Integer;
   MatrizImage : array[1..3] of TImage;
   MatrizCheckBox : array[1..3] of TCheckBox;
   FTransfer: Boolean;
   FChurch: string;
   FRefresh: Boolean;
   FExists: Boolean;
   FStringList: TStrings;
   function GetParameters(Index: Integer): Integer;
   procedure SetParameters(Index: Integer; const Value: Integer);
   function GetStringList: String;
   procedure SetStringList(const Value: String);
 public
   constructor Create;
   destructor Destroy;
   procedure Clear;
   procedure CheckByPhone(IBQuery: TIBQuery; DBGrid: TDBGrid;
     Check: Boolean);
   procedure DeleteAprisco(const Value: Integer);
   procedure ListeningAprisco(Query: TIBQuery; PageControl: TPageControl);
   procedure LoadAprisco(Query: TIBQuery; TypeAprisco: TTypeAprisco); overload;
   procedure LoadAprisco(Value: TDados); overload;
   procedure LoadStreet(Residencial: TEndereco);
   procedure Information(const Value: String); overload;
   procedure Information(Query: TIBQuery; DBGrid: TDBGrid); overload;
   procedure SaveAprisco(Value: TDados); overload;
   procedure SaveAprisco(TypeAprisco: TTypeAprisco); overload;
   procedure SaveStreet(Residencial: TEndereco);
   procedure SearchAprisco(Query: TIBQuery; Value: String); overload;
   procedure SearchAprisco(Query: TIBQuery; Emissao, Final: Double;
     Tipo: string; const Opcao: Integer; const Visita: Boolean = False); overload;
   procedure SearchParameterPhone;
   procedure TransferToContato(TQuery: TIBQuery; DBGrid: TDBGrid;
     const Value: string); overload;
   procedure TransferToMembro(Query: TIBQuery; DBGrid: TDBGrid); overload;
   procedure TransferToMembro(Value: TDados; Residencial: TEndereco); overload;
   function  TransferToMembro(const Value, TypeTransfer: Integer):
     Boolean; overload;
   property  Church: string read FChurch write FChurch;
   property  Exists: Boolean read FExists write FExists;
   property  StringList: String read GetStringList write SetStringList;
   property  Parameters[Index: Integer]: Integer read GetParameters write SetParameters;
   property  Refresh: Boolean read FRefresh write FRefresh;
   property  ToTransfer: Boolean read FTransfer write FTransfer;
   property  Value: Integer read FValue write FValue;
 end;