[求助]Delphi7要如何根据某字段值改变其他字段值呢？

小M在做一个图书管理系统，想要根据先书号(combobox1)从数据表中查询出相应的书号，然后书名(DBName),作者(DBAuthor)......根据书号显示相应的内容，请问代码要如何实现呢？
我只写了一下部分的代码，之后的不知道该怎么写了，请各位大侠帮帮忙指教一下好吗？？以下是我的代码：
procedure TBookAdd.TabSheet2Show(Sender: TObject);
begin
ADOQuery1.Active:=False;
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select distinct 书号 from 图书信息表');
ADOQuery1.Open;
ComboBox1.Clear;
while not ADOquery1.Eof do
begin
combobox1.Items.Add(ADOquery1.fieldbyname('书号').AsString);
ADOquery1.Next;
ADOQuery1.Active:=True;
end;
end;