Wie TLS Callback in Delphi

[itsme]

Hallo zusammen...

Ich habe eine vlt. etwas ungewöhnliche Frage, nämlich wie kann ich eine TLS Callback Funktion in Delphi implementieren?

Längere Suche im Netz hat lediglich Lösungen in ASM und C++ ans Licht gebracht, wobei in C++ die Funktion offensichtlich programmiertechnisch, vor die Main() Funktion gepackt wird.
Aber wie sieht das in Delphi aus?

Wozu brauche ich sowas?
Nun mich stört, dass bei Mediaprogrammen immer die bass.dll separat dazu gelegt werden muss, daher habe ich die bass.dll als Resource mit in die EXE gepackt, um sie zur Laufzeit aus der Resource temporär zu erzeugen...

Code:

begin
  Application.Initialize;

  sAppPath := IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName));
  if not FileExists(sAppPath + 'Bass.dll') then
  begin
     fName := sAppPath + 'Bass.dll';
     rStream := TResourceStream.Create(hInstance, 'Bass', RT_RCDATA);
    try
      fStream := TFileStream.Create(fName, fmCreate);
      try
        fStream.CopyFrom(rStream, 0);
      finally
        fStream.Free;
      end;
    finally
      rStream.Free;
    end;
  end;

  Application.CreateForm(TForm1, Form1);
  Application.Run;
end.

Das klappt auch alles wunderbar, leider wird offensichtlich so früh versucht die DLL zu laden, dass jeder programmierte Aufruf einer Funktion dazu führt, dass wg. fehlender bass.dll das Programm erst gar nicht gestartet wird.
Selbst ein BASS_Free() in OnClose, welches ja erst zu Programmende benötigt, sprich aufgerufen wird, führt zu o. a. Fehler!

Daher meine Überlegung, die temporäre Erzeugung der bass.dll per TLS Callback, also vor Erreichen des Program Entry Point, zu gestalten, um dieser Fehlermeldung zu entgehen und ein (hoffentlich) funktionierendes Programm zu erhalten.

Jeder hilfreiche Tipp ist herzlich willkommen...