Povezivanje DLL-ova u vreme izvrsavanja

Code:

type
    tFunkcija=function (param1: integer; var param2: real): integer; stdcall;
var
    func: tFunkcija;

procedure Load;
var
    s: string;
    hDll: tHandle;
begin
    s:='c:\putanja\do\biblioteke.dll';
    hDll:=LoadLibrary(pchar(s));
    if hDll=0 then raise Exception.Create('Greška u učitavanju dll-a');
    @func:=GetProcAddress(hDll,'ime_exportovane_funkcije');
end;

procedure Use;
var 
    param2: Real;
begin
    func(13, param2);
end;