有关进程条的问题。

Question

我想在执行以下这段代码的时候，显示一个进程条。应该如何实现？
  Query1.DatabaseName :='GZZS';
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from  CUSTstockinfo');
  Query1.Open;
  Query1.First;
  Table1.Open;
  Table1.Edit;
  while not Query1.Eof do
  begin
    Table1.Append;
    Table1.FieldByName('Stock_A005').AsString := Query1.FieldByName('stock_account').AsString;
    Table1.FieldByName('seid').AsString := Query1.FieldByName('seid').AsString;
    Query1.Next;
  end;
  Query1.Close;
  Table1.Post;
  Table1.Close;

Answer 1

Query1.DatabaseName :='GZZS';
  Query1.SQL.Clear;
  Query1.SQL.Add('select * from  CUSTstockinfo');
  Query1.Open;
  Query1.First;
  Table1.Open;
  Table1.Edit;
  progress1.max:=query1.recordcount;
  progress1.min:=0;
  progress1.step:=1;
  while not Query1.Eof do
  begin
    Table1.Append;
    Table1.FieldByName('Stock_A005').AsString := Query1.FieldByName('stock_account').AsString;
    Table1.FieldByName('seid').AsString := Query1.FieldByName('seid').AsString;
   progress1.stepit;
    Query1.Next;
  end;
  Query1.Close;
  Table1.Post;
  Table1.Close;//以上代码未经调试，请确认后给分!