AdoTable1.Edit; AdoTable1.FieldByName('КОЛ-ВО').AsInteger := StrToIntDef(Edit1.Text, 0); AdoTable1.Post;