diff --git a/source/runsqlfile.pas b/source/runsqlfile.pas
index 14bceddc..4f1e972f 100644
--- a/source/runsqlfile.pas
+++ b/source/runsqlfile.pas
@@ -131,7 +131,7 @@ begin
           on E:Exception do
             ErrorDialog(E.Message);
         end;
-        Repaint;
+        Application.ProcessMessages;
       end;
     end;
     Queries.Free;