Problemas con TStringList

[*Caro*]

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 [-]
//En el primer campo tendrías la tabla a la que pertenece
Select 'NombreTabla1' As Tabla, ...... From Tabla1
UNION
Select 'NombreTabla2' As Tabla, ...... From Tabla2
 
//Para el Delete, recuperas el nombre de la tabla
 
aSql := 'Delete From '+TManualFactory(lista.Objects[w]).NombreTabla+' Where........'

Saluditos