Fuer die Implementation einer entsprechenden Funktion empfehle ich dir meinen Artikel
http://www.delphi-jedi.org/VOYBUGHUNT
Den habe ich hier schon mal erwaehnt und es zeigt sich das er ewig aktuell bleibt.

Ist leider in englisch. (Edit: dieser Text war dafuer nicht in deutsch

).