[Simbar]

ОЧЕПЯТКИ:
procedure TADODataSetEx.NewAfterPost(DataSet: TDataSet);
begin
ApplyUpdates(-1);
Refresh;
end;
следует читать как
procedure TADODataSetEx.NewAfterPost(DataSet: TDataSet);
begin
ApplyUpdates(-1);
FQSelect.Close;
FQSelect.Open;
Refresh;
end;