for i := Tabela1.Fields.Count-1 do if (Tabela1.Fields.Fields[i].Value = Tabela2.Fields.Fields[i].Value) then ...
[As partes desta mensagem que não continham texto foram removidas]
for i := Tabela1.Fields.Count-1 do if (Tabela1.Fields.Fields[i].Value = Tabela2.Fields.Fields[i].Value) then ...
[As partes desta mensagem que não continham texto foram removidas]