function parametre vermeden sonuçu alma

[cinarbil]

İyi günler.

yazdığım dll içinde aşağıdaki  function var

function makina_kodu:Longint;
begin
 MachineModifier := ABS(CreateMachineID([midUser, midSystem, {midNetwork,} midDrives]));
 RegistrationFile := inttostr(MachineModifier)+'.lsn';
 result := MachineModifier;
end;

bu function u  proje içinden çağırmak istediğimde tanım bölümünde 

 private
   { Private declarations }
 public
   { Public declarations }
 end;
var
 LisansAlFrm: TLisansAlFrm;
 function Makina_Kodu:Longint; external 'Nk_Dll.dll';

 şeklinde tanımlı

bu şekilde çağırıyorum

procedure TLisansAlFrm.FormActivate(Sender: TObject);
var
makina_ozel:longint;
begin
 makina_ozel:= Makina_Kodu;
 ShowMessage(inttostr(makina_ozel));
 end;

resimdeki hatayı alıyorum yardımcı olabilir misiniz.