case (Sender as TBizDataSetAction).ID of
BizActnConsts.ActionDataSetAppend,BizActnConsts.ActionDataSetCopyAppend,
BizActnConsts.ActionDataSetInsert, BizActnConsts.ActionDataSetCopyInsert:
begin
if GraphicTab1.Index = 0 then
GraphicTab1.Index:= 1;
end;
end;