Fórum Problemas ADOQuery #400804

Boa Tarde,    Estou desenvolvendo uma aplicação e estou tendo dificuldades para executar um bloco com instruções SQL, alguém sabe me dizer onde está errado?    Segue bloco abaixo:   Begin
if CBSearch.Items[CBSearch.ItemIndex] = 'Operador' then
begin
Consulta1:= EditSearch.Text;
with DM.ADOQueryMANST do
begin
Close;
SQL.Clear;
SQL.Add('declare @tbTeste table (tempototal varchar(14))');
SQL.Add('insert into @tbTeste select M.TempTotal from TB_MAN M');
SQL.Add('WHERE (Mec1 = ' + QuotedStr(Consulta1));
SQL.Add(' OR Mec2 = ' +QuotedStr(Consulta1));
SQL.Add('OR Mec3 = ' + QuotedStr(Consulta1)+ '  OR Mec4 = ' + QuotedStr(Consulta1));
SQL.Add('OR Mec5 = ' + QuotedStr(Consulta1)+ '  OR Mec6 = ' + QuotedStr(Consulta1));
SQL.Add('OR Mec7 = ' + QuotedStr(Consulta1)+ '  OR Mec8 = ' + QuotedStr(Consulta1));
SQL.Add('OR Mec9 = ' + QuotedStr(Consulta1)+ ') ' );
SQL.Add(';with cte_dados as');
SQL.Add('(select');
SQL.Add('TabHora.ColXML.value('@Ind', 'int') AS Hora,');
SQL.Add('TabMin.ColXML.value('@Ind', 'int') AS Minuto,');
SQL.Add('  TabSeg.ColXML.value('@Ind', 'int') AS Segundo');
SQL.Add('FROM (SELECT *,');
SQL.Add('CONVERT(XML, '<Test Ind="' + Replace(tempototal, ':','"/><Test Ind="') + '"/>') AS ColXML');
SQL.Add('FROM @tbTeste) AS Tab');
SQL.Add('CROSS APPLY Tab.ColXML.nodes('/Test[1]') As TabHora (ColXML)');
SQL.Add('CROSS APPLY Tab.ColXML.nodes('/Test[2]') As TabMin (ColXML)');
SQL.Add('CROSS APPLY Tab.ColXML.nodes('/Test[3]') As TabSeg (ColXML)');
SQL.Add('), cte_soma as(');
SQL.Add('select SUM(hora) 'hora' , SUM(minuto) 'minuto' , SUM(segundo) 'segundo' from ');
SQL.Add('cte_dados)');
SQL.Add('select hora+(minuto/60)as 'hora', case When minuto>59 then minuto%60 else ');
SQL.Add('minuto end as 'minuto',segundo from cte_soma');
Open;
Edit1.Text:= DM.AdoQueryMANST.Fieldbyname('Hor H/Maq').AsString + ':' + Formatfloat('00',StrtoInt(DM.AdoQueryMANST.Fieldbyname('Min H/Maq').AsString));
end;
end; end;         OBS: Uso o RAD Studio 2010   Att, Moacir Rachid