function CheckField(AFieldName,AData:string; AFields:TFields):Boolean; var i,j:integer; begin Result:=False; i:=0; j:=Length(AFields); while i<j do begin i...