Grabar Una Opcion de CheckBox

[lKinGl]

Salu2

he hecho la solución de tu problema de esta forma

iserté
3 checkbox
1 edit
1 boton

marcaras los checkbox y luego presionas el boton y el revisa cual checkbox esta marcado y en el edit1 se refleja que checkbox marcaste

este es el codigo del boton (es la unica parte donde puse codigo)

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
color:string;
begin
edit1.Clear;
if CheckBox1.Checked=true then
  begin
    color:=edit1.Text+' ,'+'Blanco';
    edit1.Text:=color;
  end
  else
  begin
  end;
if CheckBox2.Checked=true then
  begin
    color:=edit1.Text+' ,'+'Rojo';
    edit1.Text:=color;
  end
  else
  begin
  end;
if CheckBox3.Checked=true then
  begin
    color:=edit1.Text+' ,'+'Amarillo';
    edit1.Text:=color;
  end
  else
  begin
  end;
if Application.MessageBox('¿Desea Guardar?','')=6 then
  begin
    tutabla.insert;
    tutabla.fieldvalues['campocolor']:=trim(edit1.text);
    tutabla.post;
  end
  else
  begin
    CheckBox1.Checked:=false;
    CheckBox2.Checked:=false;
    CheckBox3.Checked:=false;
    edit1.Clear;
  end:
end;

espero que te sirva