procedure TForm1.DataSource1StateChange(Sender: TObject);
begin
case DataSource1.DataSet.State of
dsInactive: ;
dsBrowse: ;
dsEdit: ;
dsInsert: ;
dsSetKey: ;
dsCalcFields: ;
dsFilter: ;
dsNewValue: ;
dsOldValue: ;
dsCurValue: ;
dsBlockRead: ;
dsInternalCalc: ;
dsOpening: ;
else
begin
end;
end;
end;