Clear all records of field

procedure TForm1.Button1Click(Sender: TObject); begin with Table1 do begin First; while not EOF do begin Edit; FieldByName('SIZE').Clear; Post; Next; end; end; end;