MSSQL Fehler

[haentschman]

Moin...

heute morgen hatte ich wieder 2200 Mails gehabt... Es muß die Anwendung sein. Ein Neustart...alles wieder gut.

Ich habe folgendes herausgefunden:
...es bestehen aktuell rund 12000 Connections. (Bild)

Verstehen tue es nicht. Das Modul wird bei Ausführung mit der Datenbank erzeugt und wieder freigegeben.

Delphi-Quellcode:

constructor TTaskDatabase.Create(Preferences: TTaskPreferences);
begin
  FPreferences := Preferences;
  FConnectionE := CreateConnection(ctE);
  FConnectionM := CreateConnection(ctM);
  FConnectionW := CreateConnection(ctW);
  FConnectionD := CreateConnection(ctD);

  FCurrentConnectionType := ctE;
end;

destructor TTaskDatabase.Destroy;
begin
  if Assigned(FConnectionD) then FConnectionD.Free;
  if Assigned(FConnectionW) then FConnectionW.Free;
  if Assigned(FConnectionM) then FConnectionM.Free;
  if Assigned(FConnectionE) then FConnectionE.Free;
  inherited;
end;

Muß man vor dem Free die Connection explizit trennen? Ich dachte das mit dem Free das automatisch erfolgt.

Nachtrag:
Ich habe das Modul gefunden was mit jedem Durchlauf eine neue Connection erzeugt. (Standard = Bild2)