procedure TYPRKFrm.FormCreate(Sender: TObject);
begin   
  ADOtable1.first;
   while not ADOtable1.eof do
      begin
       dbcombobox1.items.insert(-1,ADOtable1.fieldbyname('字段名').asstring);
       ADOtable1.Next;
      end;
end;
上面是在窗体创建时初始化DBCOMBOBOX。下面是查询显示记录：
procedure TYPRKFrm.Button1Click(Sender: TObject);
var query:string;
begin
    query:='';
       if dbcombobox1.text='' then
          showmessage('请输入相应查询条件')
       else
          query:='select * from 表名 where 字段名 like'+''''+'%'+dbcombobox1.text+'%'+'''';
    if query<>'' then
    begin
    with ADOQuery1 do
     begin
       close;
       sql.clear;
       sql.add(query);
       open;
       Panel1.caption:=Inttostr(recordcount);
       first;
     end;
    end;
end;

我不是要得到统计的总数，只想在列表框中显示其最后一条记录。

哦，易过借火

如下：
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;//定义I
begin
i:=ComboBox1.Items.Count-1;//I为ComboBox1列表最后的记录
begin
ComboBox1.Text:= ComboBox1.Items[i];//显示文本为最后的记录
end;
end;

谢了。