Delphi 2009 IDE: Synchronize Deadlock

[QuickAndDirty]

So sieht das bei uns aus

Delphi-Quellcode:

procedure DBIClose;
begin
 if BDEisInitialized then //Globale Variable wird beim Initialize der BDE Gesetzt
  Check(DBIExit);         //Check ist die dbtables.check funktion
 BDEisInitialized := false;
end;