> (qResyncSourceData.Fields[j].Value <>
> qResyncCompareData.FieldByName(
> qResyncSourceData.Fields[j].FullName).Value)

By the way, using FieldByName for every iteration is also very
unefficient. In my comparison, I simply use Fields[j].AsString =
Fields[j].AsString, but it is also possible to do something like

*var
* MyField: TIB_Column;
*begin
* MyField:=qResyncCompareData.FieldByName(
* qResyncSourceData.Fields[j].FullName);
* while not qResyncSourceData.eof do
* if (qResyncSourceData.Fields[j].Value <> MyField.Value)
...

Set