DLL beenden? [FEHLER]

[1Molotow1]

Hallo zusammen, ich habe wieder ein Problemchen.
Und zwar habe ich eine DLL, die zwei Threads hat, die dauerhaft laufen.

Nun möchte ich nach einer gewissen Zeit die DLL "beenden". Ich habe diese Funktion gefunden, aber leider crasht dadurch nur die exe.

Code:

function KillDll(aDllName: string): Boolean;
var
  hDLL: THandle;
  aName: array[0..10] of char;
  FoundDLL: Boolean;
begin
  StrPCopy(aName, aDllName);
  FoundDLL := False;
  repeat
    hDLL := GetModuleHandle(aName);
    if hDLL = 0 then
      Break;
    FoundDLL := True;
    FreeLibrary(hDLL);
  until False;
end;

Kann mir da jemand weiterhelfen, wie ich die DLL beendet bekomme?