>> StartTime := Now;

for i := 0 to 50 do
begin
IboQuery1.Open;
while not IBOQuery1.EOF do begin
IBOQuery1.Next;


DisableControls;
try
do you thing


finally
EnableControls;
end;


Steve Garland sgarland@...
Code it once with ASTA and run it anywhere
Servers (Win32,Linux) Clients (Win32,Linux,Java,Palm,WinCE)
ASTA Technology Group http://www.astatech.com