ADO - OracleVerbindung schließen - geht nicht

[schuetze09]

Hallo,

ich weiß nicht warum, aber es ist schon komisch und peinlich zugleich, aber ich finde einfach meinen Fehler nicht.
Ich baue eine Verbindung zu einer DB auf, kann ein Query ausführen.
Schließe dann die Verbindung. UND - das Query läst sich immer noch ausführen!!!

Öffnen der DB: DBConnection.Connected:=True; Schließen der DB: DBConnection.Close; //müsste doch die Verbindung zur DB trennen... Für die Abfrage:

Delphi-Quellcode:

procedure GetFields(VSTParams: TVirtualStringTree; SQL_Statement:string);
var aNode: PVirtualNode;
    ptreedata : PTreeDbRec;
    i: integer;
begin
  Query:=TADOQuery.Create(nil);
  Query.Connection:=DataModule_DBConnect.DBConnection;
  Query.SQL.Text:=SQL_Statement;

  VSTParams.NodeDataSize:= SizeOf(ptreedata);

  Screen.Cursor:=crSQLWait;
  Query.Open;
  VSTParams.DeleteChildren(VSTParams.RootNode, true);
  aNode :=  VSTParams_AddRootNode(VSTParams, 'Felder');
  for i:=0 to Query.FieldDefList.Count -1 do VSTParams_AddNode(VSTParams, Query.FieldDefList.Strings[i], false, aNode);

  Query.Close;
  Screen.Cursor:=crDefault;
end;

Irgendwas stimmt doch nicht?

MfG
schuetze09