[elfer]

За что отвечает эта строка?
if tDemo.State in [dsEdit,dsInsert] then Exit;