procedure TpFIBDataSet.Notification(AComponent: TComponent; Operation: TOperation); //override;
var i:integer;
begin
 inherited Notification(AComponent,Operation);
 case Operation of
  opRemove:  if (AComponent=FContainer)  then FContainer:=nil
             else
             if (AComponent is TField) and not (csDestroying in ComponentState) then
             begin
               i:=FFNFields.IndexOfObject(AComponent);
               if i<>- 1  then FFNFields.Delete(i);
             end;
 end;
end;