Unable to Unlock on Mac Version in Firemonkey

I bought the Mac license and using the following codes, I am unable to unlock the library. I tried the trial key which comes with the zip file and still the same issue.

My codes in Firemonkey is as follows

==
unit Unit2;

interface

uses
System.SysUtils, System.Types, System.UITypes, System.Rtti, System.Classes,
System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs;

type
TForm2 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
private
    { Private declarations }
public
    { Public declarations }
   ghandle : THandle;

end;

var
Form2: TForm2;

   type
   tsetkey = function(a : integer;key : pchar): integer;
   tpdfcreate = function() : integer;

implementation

{$R *.fmx}

procedure TForm2.Button1Click(Sender: TObject);
var p : Integer;
var setkey : tsetkey;
var pdfcreate : tpdfcreate;
begin

ghandle := LoadLibrary(PChar('libDebenuPDFLibraryDylib0913.dylib')) ;
@pdfcreate := GetProcAddress(ghandle,'DPLCreateLibrary');
   @setkey := GetProcAddress(ghandle,'DPLUnlockKey');
p := pdfcreate();
     label1.Text := IntToStr(p);
   if @setkey <> nil then
        begin

    if setkey(p,pChar('MyLicenseKey')) = 1 then
// this is the trial key
    ShowMessage('Unlocked Done')
    else
    begin

    ShowMessage('Still Locked');
    end;
      end;
end;

end.
==

The Integer P gave me a long integer so I know the CreateLibrary part works but I am just unable to do the unlock, it keeps giving me a 0.

I am feeling kind of stupid as I cannot even get through this stage. If someone would be kind enough to help, I would surely appreciate it.

Thank you.


Edited by Ingo - 02 Mar 13 at 1:58PM

I really hope someone can help me. After I purchased the license after being told that I can be given the DCU version for firemonkey, support no longer replied me.

I am really not sure what is going on with support but I be happy just to be able to get this working.

Thanks,

I know but I've contacted them since Feb 28 via email at their help desk but so far no reply as yet, otherwise I wouldn't come by here in desperation.

Thank you Andrew for your help.

Thanks. I will give that a try