extern "C" __declspec( dllimport ) __stdcall PCHAR EP_RegHardwareID();

function EP_RegHardwareID : PAnsiChar; stdcall;

Public Declare Function EP_RegHardwareID Lib "enigma_ide.dll" As String

public class Enigma_IDE
{
    [DllImport("enigma_ide.dll", CallingConvention = CallingConvention.StdCall)]
    public static extern string EP_RegHardwareID();
}

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

procedure ShowHardwareID;
var
  pcHardware : pchar;
begin
  pcHardware := EP_RegHardwareID;
  if pcHardware <> nil then
  begin
    MessageBox(0, format('The Hardware ID is: %s', [string(pcHardware)]), 'Application', 0); 
  end else
  begin
    MessageBox(0, 'Application is not protected...?', 'Application', 0); 
  end;
end;

#include "include/enigma_api.h" // the module contains a definitions of Enigma API
#pragma link "include/enigma_ide.lib"

void ShowHardwareID()
{
  char* cHardware = null;

  cHardware = EP_RegHardwareID();
  MainForm -> Text.c_str = cHardware;
}