Hilfe bei Steam API Wrappers

[Bubble]

Hallo,

ich wollte die Steam API Wrappers mit Delphi XE6 austesten ( https://github.com/Relfos/steamworks_wrappers ), habe aber schon Probleme bei der Initialisierung. Ich glaube, einen entscheidenden Schritt vergessen zu haben. Es wäre toll, wenn mir jemand weiterhelfen könnte.

Delphi-Quellcode:

unit test;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

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


Type
   MyFunction = Function(CustomUrl : PChar) : DWORD; Stdcall;
 Const
   APIload  = 'steam_api.dll';
   PassString : String = 'http://forum.lazarus.freepascal.org';

var
  Form1: TForm1;

  Function SteamAPI_Init : Boolean; cdecl; External APIload;  // Tried even with stdcall

implementation

{$R *.dfm}



procedure TForm1.Button1Click(Sender: TObject);
begin
  If SteamAPI_Init = True Then ShowMessage('ok');
end;

end.

Das Programmverzeichnis sieht so aus:
CSteamworks.dll
libCSteamworks.so
SteamAPI.pas
test.dfm
test.dpr
test.dproj
test.pas


Das Programm wird fehlerlos kompiliert, beim Start erscheint jedoch die Form nicht und das Programm kehrt zum Editor zurück.