program ExportTest;

{$APPTYPE CONSOLE}

uses
 Windows;

procedure Test(const Value: PChar); stdcall;
begin
 Writeln(Value);
end;

exports
 Test name 'SuperTest';

var
 hLib: THandle;
 TTest: procedure(const Value: PChar); stdcall;
begin
 hLib := LoadLibrary(PChar(ParamStr(0)));
 if hLib > HINSTANCE_ERROR then
 begin
   @TTest := GetProcAddress(hLib, 'SuperTest');
   if Assigned(@TTest) then
     TTest('Call exported procedure success.');
 end;
 Readln;
end.