Hola pdimasi2008, podrías añadir la tabla a la que pertenece cada registro, eso en tu consulta que hace la Union y en tus objetos guardas también la tabla a la que pertenecen:
Código Delphi
[-]
Select 'NombreTabla1' As Tabla, ...... From Tabla1
UNION
Select 'NombreTabla2' As Tabla, ...... From Tabla2
aSql := 'Delete From '+TManualFactory(lista.Objects[w]).NombreTabla+' Where........'
Saluditos