RosettaCodeData/Task/Call-a-function-in-a-shared-library/Delphi/call-a-function-in-a-shared-library-3.pas

var
  lLibraryHandle: THandle;
  lDoSomething: procedure; stdcall;
begin
  lLibraryHandle := LoadLibrary('MYLIB.DLL');
  if lLibraryHandle >= 32 then { success }
  begin
    lDoSomething := GetProcAddress(lLibraryHandle, 'DoSomething');
    lDoSomething();
    FreeLibrary(lLibraryHandle);
  end;
end;