codigo para guardar dato tipo bit

[olbeup]

Mira este código si te sirve:

Código Delphi [-]
procedure TForm1.Insertar;
var
  ValueChk: Array[Boolean] of ShortInt = (0, 1);
begin
  with QueryPac do
  begin
    SQL.Add('INSERT INTO Pacientes(NOMBRE, CAMPO_BIT)');
    SQL.Add('VALUES(' + QuotedStr(Edit3.Text)+ ', ' + IntToStr(ValueChk[CheckBox1.Checked]) + ')');
  end;
end;

Los Campos Bit pueden tener 3 valores distintos:
0 = False, 1 = True, -1 = True

Un saludo.