program LibraryTest;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  Windows,
  SynCommons,
  SynLog;

//procedure Test; external 'MyLibrary.dll';

procedure Test;
type
  TTestProc = procedure; stdcall;
var
  Handle: THandle;
  TestProc: TTestProc;
begin
  Handle := SafeLoadLibrary('MyLibrary.dll');
  try
    TestProc := GetProcAddress(Handle, 'Test');
    if Assigned(TestProc) then
      TestProc;
  finally
    FreeLibrary(Handle);
  end;
end;


begin
  TSynLog.Family.Level := LOG_VERBOSE;
  Test;
end.