Fórum qryDelAge.Delete não deleta os dados do banco. #280858

Bom dia pessoal!!!

Estou tendo o seguinte problema.
Tenho esse select:

DataAtual := Now;
with dm2.qryDelAge do
begin
Close;
SQL.Clear;
SQL.Add(´select A.CODAGENDA, A.CODUSUARIO, A.CODSERVICO, A.CODIASEM,´);
SQL.Add(´A.COD_HOR, A.DATAGENDA, A.SENHA, S.CODIGO, I.NOME,´);
SQL.Add(´S.COD_PARCEIRO, S.DESCR_PARC, S.COD_CASA, S.LOCA_,´);
SQL.Add(´S.DATAINI, S.DATAFIM, S.CONTADOR, S.INF_NESS, S.DESCRICAO,´);
SQL.Add(´D.CODIGO, D.DESCR_DIA, H.COD_HOR, H.DESCR_HOR´);
SQL.Add(´from AGENDAMENTO A´);
SQL.Add(´inner join IDENTIFICA I´);
SQL.Add(´on (A.CODUSUARIO = I.COD_NOME)´);
SQL.Add(´inner join SERVICOS S´);
SQL.Add(´on (A.CODSERVICO = S.CODIGO)´);
SQL.Add(´inner join DIASEMANA D´);
SQL.Add(´on (A.CODIASEM = D.CODIGO)´);
SQL.Add(´inner join HORARIO H´);
SQL.Add(´on (A.COD_HOR = H.COD_HOR)´);
SQL.Add(´where A.DATAGENDA < ´ + QuotedStr(FormatDateTime(´yyyy-mm-dd´,DataAtual)));
Open;

Ou seja, quero deletar todos da tabela AGENDAMENTO que estiverem com a Data menor que a Data Atual, ok?
Em seguida eu faço o seguinte:

if not dm2.qryDelAge.IsEmpty then
begin
dm2.qryDelAge.Delete;
end;

Só que não está deletando.

Alguém pode me ajudar???

Estou usando SQL Server 2000, e Query1 do BDE.
Se ouver alguma sugstão também...

Abraços!!!

Cristiano Mário