Código SQL [-] 'Delete From Partidas Where Codigo ='+ QuotedStr(Cod);
'Delete From Partidas Where Codigo ='+ QuotedStr(Cod);