ADOquery执行存储过程的执行如何反映在进度条上

用adoquery1执行存储过程，向一表中插入记录，如何将插入进度反映在进度条上呢？
procedure TForm1.Button1Click(Sender: TObject);
begin
  ADOQuery1.SQL.Text:='exec proinsert';
  ADOQuery1.ExecSQL;
end;