Código Delphi [-] if Table1.Fields[x].DataType=ftBoolean then
if Table1.Fields[x].DataType=ftBoolean then