如何在查询数据添加到listview的时候有个文字提示


procedure TForm1.sBitBtn6Click(Sender: TObject);
var                                                
  i,j: Integer;
  Item: TListItem;
begin
Panel2.Visible:=true;//比如这里，在查询很多数据的时候，能让它显现，并显示出里面的文字比如“数据正在查询中”，现在在数据查询结束前，它只会出个边框
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('select * from 数据库');
ADOQuery1.Open;
if  ADOQuery1.RecordCount<>0  then
begin
  for i:=0 to ADOQuery1.RecordCount-1  do
    begin
      item:=listview1.Items.Add;
      item.Caption:=ADOQuery1.Fields[0].value ;
      item.SubItems.Add(ADOQuery1.Fields[1].value);
      item.SubItems.Add(ADOQuery1.Fields[2].value);
      item.SubItems.Add(ADOQuery1.Fields[3].value);
      item.SubItems.Add(ADOQuery1.Fields[4].value);
      item.SubItems.Add(ADOQuery1.Fields[5].value);
      selectprice();
      item.SubItems.Add(floattostr(strtofloat(price)));
      item.SubItems.Add(ADOQuery1.Fields[9].value);
      ADOQuery1.Next;
    end;
  end;
end;