Error nach Drop-Database Funktion

[DelphiSüchtig]

Hallo zusammen,

neuerdings tritt ein Fehler auf bei folgender Funktion:

Code:

///
/// if existing delete, we want a new Database !
///
if DatabaseExists(ServerName, DatabaseName) then
begin
  self.DropDatabase;
end;

Dabei wird einfach geprüft, ob eine Datenbank existiert und in der Funktion DropDatabase wird die Datenbank dann eben gedropped. Das ganze wird (oder sollte) über mehrere Tests mit der selben Datenbank ausgeführt.
Die Errormessage lautet dann nun wie folgt: Cannot drop database because it is currently in use!

Warum bekomme ich nun diese Errormessage? Was muss vor dem Droppen einer Datenbank passieren dass es keinen Fehler auswirft?

Vielen Dank für eure Antworten!