DBExress MySQL aumentando o número de conexões no banco.

Estou usando o Delphi 2007 com DBExpress para conectar no banco de dados MySQL 5.

TSQLConnection -> TSQLQuery -> TDataSetProvider -> TClientDataSet -> TDataSource.

Cadavez que eu executo um ´ExecSQL();´ no banco de dados vai aumentando o número de conexões. Já tentei dar um ´Free´ mas não deu certo. Só dá pra fechar as coneões quando fecho a aplicação. Gostaria de uma solução melhor que esta. Se alguem já passou por algo parecido, por favor preciso de uma luz.

Procedure TForm_Senha.GravaDados;
Var
SQL_Update : TSQLQuery;
Begin
SQL_Update := TSQLQuery.Create(Self);

Try
SQL_Update.SQLConnection := Dm_Ponto.SQLPonto;
SQL_Update.SQL.Clear;
SQL_Update.SQL.Add(´UPDATE FUNCIONA_DBF ´);
SQL_Update.SQL.Add(´ SET STATFUNC = :STATFUNC, ´);
SQL_Update.SQL.Add(´ DTPONTO = :DTPONTO, ´);
SQL_Update.SQL.Add(´ HRPONTO = :HRPONTO, ´);
SQL_Update.SQL.Add(´ TIPOSAID = :TIPOSAID ´);
SQL_Update.SQL.Add(´ WHERE CODIFUNC = :CODIFUNC ´);
SQL_Update.ParamByName(´DTPONTO´).AsDate := DATE;
SQL_Update.ParamByName(´HRPONTO´).Value := TimeToStr(Time());
SQL_Update.ParamByName(´CODIFUNC´).Value := Dm_Ponto.SQLQryFunciona.FieldByName(´CODIFUNC´).Value;

SQL_Update.ExecSQL();
Finally
SQL_Update.Close;
SQL_Update.Free;
End;

Tirei algumas coisas do código mas o principal ta ai