请问如何在以下这段代码执行过程中加入一个进程条以显示任务完成的情况？

请问如何在以下这段代码执行过程中加入一个进程条以显示任务完成的情况？ 
  Query1.SQL.Clear;
  Query1.SQL.Add('insert into "e:\gh61089.dbf"  select * from  "h:\qs\gh61089.dbf" where sqbh like "____33%"');
  Query1.ExecSQL;