Probelme mit DLL Programmierung

[Digielm]

Hallo ich nutze Delphi 7 und hab bei Delphitreff eine Anleitung gefunden für eine DLL zu erstellen.

Soweit klappt auch alles bis auf dieser aufruf

Delphi-Quellcode:

function einfachso : String;
var
  einfachso: Teinfachso;
  Handle : THandle;
begin
    Handle := LoadLibrary(PChar(ExtractFilePath(application.name)+'phoenix.dll'));
    @einfachso := GetProcAddress(Handle, 'einfachso');
    if @einfachso <> nil then
    begin
      result := einfachso;
    end;
    freelibrary(Handle);
end;

bei dem Aufruf freelibrary(Handle);
bekomme ich grundsätzlich eine exception. Kann mir jemand helfen und sagen warum ??