[TCriticalSection] Kann ich in D7 testen ob "entern"?

[xZise]

Hallo DP,
soweit ich weiß, kann man unter TD-E mit der CritcalSection überprüfen, ob gerade keine Instanz darauf zugreift, und wenn der Fall eintritt es dann auch tut.

Aber wie ist das unter Delphi 7?
Ich bin mir jetzt nicht sicher, aber normalerweise müsste das doch so sein:

Delphi-Quellcode:

if <CS>.CanEnter then
begin
  // Enter ist möglich ohne zu blockieren
  // Zugriff auf Variable
end;

MfG
xZise