[marcoszorrilla]

Puedes utilizar un CheckBox y por código cambiar los valores, aquí te pongo una idea:

Código Delphi [-]
  procedure TForm1.CheckBox1Click(Sender: TObject);
  begin
   if CheckBox1.Checked  then
   Edit1.text:='0'
   else
   Edit1.Text:='1';
  end;

Edit1 sería el campo de la tabla.


Un Saludo.