1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

type
  TSampleDll = procedure;

var 
  Dll: TSamlpeDll = nil;

...

var Handle: THandle;
    r: real;
begin
  Handle := LoadLibrary(PChar(ExtractFilePath(ParamStr(0))+'sample.dll'));
  @PlugIn := GetProcAddress(Handle, 'Sampleprocedure');
  if @PlugIn <> nil then PlugIn;
  FreeLibrary(Handle);

  r := handle;
  Caption := FloatToStr(r); // Nur als Test
end;                    

1:
2:
3:

  Handle := LoadLibrary(...);
  FreeLibrary(Handle);
  r := Handle; { library wurde schon geschlossen!!! }                    

1:
2:
3:
4:

  Handle := LoadLibrary(...);
  r := Handle;
  FormName.Caption := FloatToStr(r);
  FreeLibrary(Handle);                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

  Handle := LoadLibrary(...);
  if Handle=0 then begin
    LogMessage('failed when loading library');
  end else begin
    LogMessage('library successfully loaded');
    { retrieving proc address }
    @Plugin := GetProcAddress(Handle, 'Sampleprocedure');
    if @Plugin <> nil then begin
       Plugin;
       LogMessage('successfully called procedure »Sampleprocedure«');
    end else begin
       LogMessage('failed to call »Sampleprocedure«');
    end;
    { save handle value to form caption }
    FormName.Caption := StrToInt(Integer(Handle));
    { free resources }
    FreeLibrary(Handle);
  end;                    

1:
2:
3:
4:
5:

const 
  PLUGIN_INIT_PROC = 'Sampleprocedure';

{ ... }
  GetProcAddress(Handle, PLUGIN_INIT_PROC);