Add these changes.

> StartTime := Now;

try
IBOQuery.BeginBusy( true );

> for i := 0 to 50 do
> begin
> IboQuery1.Open;
> while not IBOQuery1.EOF do begin
> IBOQuery1.Next;
> end;
> IboQuery1.Close;
> end;
> EndTime := Now;
> Label1.Caption := 'Execution time = '
> + IntToStr(trunc((EndTime - StartTime) * mSecsPerDay));

finally
IBOQuery.EndBusy;
end;

Be sure to also follow Steve's advice to include Disable/Enable Controls
too.

I'm wondering if I should include the Begin/End Busy stuff in the
Disable/Enable Controls. I suppose the reason I don't is because then you
wouldn't be able to tell whether or not the process is yielding or not.

Regards,
Jason Wharton
CPS - Mesa AZ
http://www.ibobjects.com