procedure TForm1.Button3Click(Sender: TObject);
var
stStatusFiler: TUpdateStatusSet;
begin
stStatusFiler := [];
if CHKModified.Checked then
stStatusFiler := stStatusFiler + [usModified];
if CHKInserted.Checked then
stStatusFiler := stStatusFiler + [usInserted];
if CHKDeleted.Checked then
stStatusFiler := stStatusFiler + [usDeleted];
(DSParts.DataSet as TClientDataSet).StatusFilter := stStatusFiler;
end;