Eine Möglichkeit ist das mit anonymen Methoden zu lösen:
Das klappt, vielen Dank.
Jetzt kann ich sogar noch die Prüfmethoden und den Zugriff auf den
Mutex zum
DB-Objekt private machen.
War nur noch eine kleine Korrektur nötig, falls das jemand mal nutzen möchte.
TMyProc = reference to procedure(var Err: ErrorCode);