extern "C" __declspec( dllimport ) __stdcall BOOL EP_TrialDays( int* Total, int* Left );

function EP_CheckupCopies( var Total, Current : Cardinal) : boolean; stdcall;

Public Declare Function EP_CheckupCopies Lib "enigma_ide.dll" (ByRef Total As Long, ByRef Current As Long) As Byte

public class Enigma_IDE
{
    [DllImport("enigma_ide.dll", CallingConvention = CallingConvention.StdCall)]
    public static extern bool EP_CheckupCopies(ref Int32 Total, ref Int32 Current);
}

uses 
  enigma_ide; // the module contains a definitions of Enigma API

procedure CheckCopies;
var
  Total, Current : Cardinal;
begin
  // Get total number of executed copies and current one
  if EP_CheckupCopies(Total, Current) then
  begin
    MessageBox(0, PAnsiChar(format('There is set up %d of total executed copies,'#10#13'This is the %d-th runing copy!', [Total, Current])), 'Application', MB_OK or MB_ICONINFORMATION);
  end else
  begin
    // If the function returns false, it means that checkup
    // of executed copies is not set on the project
    MessageBox(0, 'Unable to get executed copies count. To solve the problem, be sure:'#10#13'1. Application is protected,'#10#13'2. Checkup of executed copies is enabled.', 'Application', MB_OK or MB_ICONERROR);
  end;
end;