[fpc-pascal] Dynamic loading shared libraries

[theo]

Am I right, that with fpc it is only possible to write bindings for 
dynamically loading shared libraries (using LoadLibrary) the hard way?
Meaning declare function like:
init_alloc_root : procedure(root: PMEM_ROOT;block_size : 
Cardinal);extdecl;    
and then using GetProcedureAddress like:
pointer(init_alloc_root) := 
GetProcedureAddress(Mysql3_comLibraryHandle,'init_alloc_root');

Is there a tool for converting sources with static bindings to this?
Does h2pas have an option for this?

Thank you.