AccessCheck liefert False wenn Exception ausgelöst wird

[Luckie]

Ich habe folgenden Code (Ausschnitt):

Delphi-Quellcode:

if AccessCheck(psdAdmin, hImpersonationToken, dwAccessDesired, gm, ps, dwStructureSize,
                          dwStatus, bReturn) then
                        begin
                          Result := bReturn;
                        end
                        else
                          Writeln('Test');
                          //raise Exception.Create(SysErrorMessage(GetLastError));

Werfe ich eine Exception, liefert die Funktion False zurück und die Exception wird geworfen. Lasse ich stattdessen Text in der Konsole ausgeben liefert AccessCheck True zurück und alles funktioniert. Irgendwas scheint da mit dem Speicher nicht zu stimmen. Im Anhang mal das ganze Programm, für diejenigen, die es debuggen wollen.