[mguixot]

Buenas,

estoy intentando compilar un proyecto nuevo, en el que importo una librería dll. Pero me da un error de compilación (lo indico abajo en el código), a priori sencillo de resolver, pero no encuentro el problema.
Podeis echarme una mano?.

Saludos y gracias.

unit Tarjeta;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TFormPrincipal1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
    procedure AUX;
  end;

var
  FormPrincipal1: TFormPrincipal1;
  dev:THANDLE;

implementation

{$R *.DFM}

const SmartCardLibrary='LTC2x.dll';

type LONG=longint;
     INT=smallint;
     pINT=PINTEGER;

function C3Reset        (hComDev:THandle;LATR:pINT;ATR:pointer):LONG;                                                                stdcall; external SmartCardLibrary name 'C3RESET';
function C3IfdStatus    (hComDev:THandle):LONG;                                                                                      stdcall; external SmartCardLibrary name 'C3IFDSTATUS';
function C3CardInserted (hCommDev:THandle;CCA:INT):bool;                                                                             stdcall; external SmartCardLibrary name 'C3CARDINSERTED';
function C3ReaderPowered(hCommDev:THandle):bool;                                                                                     stdcall; external SmartCardLibrary name 'C3READERPOWERED';
function C3Open         (Port:PCHAR):THandle;                                                                                        stdcall; external SmartCardLibrary name 'C3OPEN';
function C3Close        (hComDev:THandle):bool;

procedure TFormPrincipal1.AUX; <- Error de ... ';' expected but '.' found
begin
  ShowMessage('Prueba');
end;


end.