while True do
begin
while not AdoQuery1.EOF do
begin
AdoQuery1.Next;
Application.ProcessMessages;
Sleep(1000);
end;
AdoQuery1.First;
end;
البته استفاده از این کد در Thread اصلی برنامه باعث میشه که در فواصل یک ثانیه به یک ثانیه، برنامه به درخواست ها پاسخ نده. پس اگر قرار هست برنامه علاوه بر نمایش این داده ها پردازش دیگه ایی هم انجام بده، یا کاربر باید همزمان باهاش کار کنه، باید این کد را به یک Thread دیگه منتقل کنید، تا مکث یک ثانیه ایی حاصل از Sleep باعث اخلال در ارتباط کاربر با برنامه، یا کند شدن سایر پردازش های برنامه نشه.