Application.ProcessMessages 를 루프 안에 사용하시면 됩니다...

while not Table1.eof do
begin
   .....
   Application.ProcessMessages;
   .....
end;