procedure TForm1.FormCreate(Sender: TObject);
begin
with adoQuery1 do
begin
close;
sql.Clear;
sql.Add('select id from a');
open;
while not eof do
begin
combobox1.Items.Add(fieldbyname('id').AsString);
next;
end;
end;
end;
procedure TForm1.ComboBox1Select(Sender: TObject);
begin
with adoQuery1 do
begin
close;
sql.Clear;
sql.Add('select * from a where id='''+Combobox1.Text+'''');
open;
checkbox1.Checked := Fieldbyname('q1').AsBoolean;
checkbox2.Checked := Fieldbyname('q2').AsBoolean;
checkbox3.Checked := Fieldbyname('q3').AsBoolean;
end;
end;