Not sure if this is a proper IBO question ...

I run a lengthy stored procedure whose execution time I estimate and
during its execution would like to update a progress bar on a TTimer
event. When Execute is entered the TTimer event is effectively
suspended. It is not called. Is this expected? Can I do something
else
to achieve updating a progress bar?

dm is a data module used by the form containing the code below. The
TTimer is in the code module.

with dm.dsqlWrite do
begin
SQL.Text := 'execute procedure CALC_CONTACT2_RECS ' +
QuotedStr(DateToIBDate( TDate(DTStart.date)))+', '+
QuotedStr(DateToIBDate( TDate(DTEnd.date)));
Prepare;
Execute;
// TTimer event not called while in Execute
contact2ID := fields[0].AsInteger;
RecCount := fields[1].asInteger;
end;

Thanks
Russell