Too many connections

[Ykcim]

Hallo Zusammen,

ich habe eine Delphi Anwendung, mit der ich ohne Komponenten auf einen MySQL Server zugreife. Nach einigen Aktionen beschwert sich dieser, dass zu viele Verbindungen bestehen.

Ich habe dann mal nachgesehen und bemerkt, dass die Verbindungen nicht wieder geschlossen werden. Damit ist also nicht die maximale Verbindungsanzahl das Problem, sondern das beenden der Verbindungen...

Hier sind meine Codes:

Connect:

Delphi-Quellcode:

procedure connect;
begin
  host:= 'localhost';
  user:= 'root';
  pass:= '01971156';
  db:= 'NedCom';
  _myCon := mysql_init(nil);
  if _mycon=nil then
  begin
    showmessage('Nicht genügend freier Speicher!');
    Exit;
  end;
  if mysql_real_connect(_mycon, host, user, pass,db, 3306, nil,0)=nil then
  begin
    showmessage('Die Verbindung konnte nicht hergestellt werden! Ursache:' + mysql_error(_mycon));
    exit;
  end;
end;

Disconnect:

Delphi-Quellcode:

procedure disconnect;
begin
  mysql_close(_mycon);
end;

Hat jemand eine Idee, wie ich die Verbindungen "ganz" beenden kann?

Danke

Ykcim