Підключення та імпорт з DLL бібліотеки під час роботи

program Example;
{$APPTYPE CONSOLE}

var result: Double;
LibHandle: Hmodule;
AddNumbers: function(a, b: Double): Double;
begin
LibHandle := LoadLibrary('Example.dll'); // загружаем DLL
if LibHandle <> 0 then
begin
@AddNumbers := GetProcAddress(LibHandle, 'AddNumbers'); // запоминаем адрес
// необходимой функции
if @AddNumbers <> nil then
begin
result := AddNumbers(1, 2); // используем функцию
Writeln('The result was: ', result);
end;
FreeLibrary(LibHandle); // выгружаем DLL
end;
end.