Contoh Penggunaan Syntax CheckBox

procedure TForm1.FormShow(Sender: TObject);
begin
  if ADOTable1.FieldByName('comboa').Value=true then
  CheckBox1.Checked:=true;
  if ADOTable1.FieldByName('combob').Value=true then
  CheckBox2.Checked:=true;
  if ADOTable1.FieldByName('comboc').Value=true then
  CheckBox3.Checked:=true;
  if ADOTable1.FieldByName('combod').Value=true then
  CheckBox4.Checked:=true;
end;