Checkbox Toggle button: Dataset not in edit or insert mode

[dqurve]

Estoy haciendo un toggle switch, que cuando le de clic cambie de estado On/off, logré hacerlo
haciendo override del método Paint , todo bien pero los bordes se veían pixelados.

Así que mejor modifiqué el componente para cargar una imagen para cada estado dependiendo
del checked de la imagen, en resumen estoy poniendo un componente TImage dentro de un
Checkbox heredado de TwwCheckbox y al crear un toggle en runtime y asignarle un Dataset,
porque dependiendo del estado del toggle se va a guardar en la base de datos, marca el siguiente
error:

qryToggleButton: Dataset not in edit or insert mode

Anexo codigo:

{aqui creo el toggle en runtime y le asigno un datasource 
para conectarlo a la base de datos}
procedure TForm1.FormCreate(Sender: TObject);
begin
   ToggleButton:= TinToggleButton2.Create(Self);
   ToggleButton.Name := 'ToggleButton';
   ToggleButton.Parent:= Self;
   ToggleButton.Left:= 200;
   ToggleButton.Top:=100;
   ToggleButton.Visible:= true;
   ToggleButton.ValueChecked:= 'S';
   ToggleButton.ValueUnchecked:= 'N';
   ToggleButton.DisplayValueChecked:= 'S';
   ToggleButton.DisplayValueUnchecked:= 'N';
   ToggleButton.DataField:= 'TAutoSave';
   ToggleButton.DataSource:= dsToggleButton;
   ToggleButton.DataSource.DataSet:= qryToggleButton;
end;

//activo el query 
procedure TForm1.Button1Click(Sender: TObject);
begin
   qryToggleButton.Active:= true;
end;

//mando a la base de datos
procedure TForm1.Button2Click(Sender: TObject);
begin
  qryToggleButton.Post;
end;


{aquí creo el componente en otra unidad donde esta el evento click 
para cambiar entre imagen}
constructor TinToggleButton2.Create(AOwner: TComponent);
begin
   inherited;
   Width:= 34;
   Height:= 15;
   Image:= TImage.Create(Self);
   Image.Visible:= true;
   Image.Picture.LoadFromFile('toggle_Toggle1.ico');
   Image.Parent:= Self;
   Image.OnClick:=Self.Image1Click;
   Self.Checked:= false;
   Checked:= false;
end;

procedure TinToggleButton2.Image1Click(Sender: TObject);
begin
  if Image.Enabled then
    begin
      if Self.Checked then
      begin
         Self.Checked:= false;
         Image.Picture.LoadFromFile('toggle_Toggle1.ico');
      end
  else
    begin
      Self.Checked:= true;
      Image.Picture.LoadFromFile('toggle_Toggle2.ico');
    end
  end;
 end;

El toggle lo creo en runtime pero los otros componentes como el TwwDataSource y el TADOQuery
los pongo en la forma y al checkbox le asigno tanto el DataField como el DataSource y lo que no
alcanzo a comprender es que si tiene algo que ver al activar tanto el checked de la imagen como el
del componente para que el DataSet se ponga en edición, tengo que hacer override de la
propiedad Checked del componte? estoy asignando mal el dataset?