Problema con parametros

[tiago_begins]

Hola amigos, necesito una ayuda urgente.
No sé que es lo que esta mal en este código:

Código Delphi [-]
begin
    sSQL:= ' DELETE FROM turnos WHERE ID_PACIENTE= :ID_PACIENTE AND DATE_FORMAT( FECHA_HORA, ' + QuotedSTR( '%Y%m%d' ) + ')= ' + QuotedSTR( FormatDateTime( 'yyyyMMdd'))= :FECHA_HORA;
        //DATE_FORMAT( FECHA_HORA, ' + QuotedSTR( '%H:%i' ) + ' ) '= QuotedSTR( FormatDateTime( 'yyyyMMdd')= ':fecha_hora');
        qryEXEC:=TZQuery.Create(nil);
        qryEXEC.SQL.Add( sSQL );
        qryEXEC.ParamByName( 'ID_PACIENTE' ).Value:= Data.qryTurno.FieldByName( 'ID_PACIENTE' ).Value;
        qryEXEC.ParamByName( 'FECHA_HORA' ).Value:= Data.qryTurno.FieldByName( 'FECHA_HORA' ).Value;
        qryEXEC.Connection:= Data.Conx;
        qryEXEC.ExecSQL();
        FreeAndNil( qryEXEC );
        Data.qryTurno.Refresh;
    end;

Tengo que decirle que me elimine los datos que están en FECHA_HORA con la ID_PACIENTE correspondiente, pero los datos de FECHA_HORA con este formato FormatDateTime( 'yyyyMMdd')

Mi error creo que está en esta línea:

Código Delphi [-]
sSQL:= ' DELETE FROM turnos WHERE ID_PACIENTE= :ID_PACIENTE AND DATE_FORMAT( FECHA_HORA, ' + QuotedSTR( '%Y%m%d' ) + ')= ' + QuotedSTR( FormatDateTime( 'yyyyMMdd'))= :FECHA_HORA;

espero su ayuda