Creo que el error esta en esta linea:
if table1.FindField(fName) <> nil then Exit;
o sea, si lo encuentra, quiere decir que es diferente de nil, entonces se sale del procedimiento
if table1.FindField(fName) = nil then Exit;
un signo de igual arregla el problema
|