diff --git a/source/main.pas b/source/main.pas
index 484cfdbc..962e9f3d 100644
--- a/source/main.pas
+++ b/source/main.pas
@@ -2035,7 +2035,7 @@ begin
   Results.Connection := Connection;
   Results.LogCategory := lcUserFiredSQL;
   for i:=0 to SQLBatch.Count-1 do begin
-    ShowStatusMsg('Executing query #'+FormatNumber(i)+' of '+FormatNumber(SQLBatch.Count)+' ...');
+    ShowStatusMsg('Executing query #'+FormatNumber(i+1)+' of '+FormatNumber(SQLBatch.Count)+' ...');
     ProgressBarStatus.StepIt;
     ProgressBarStatus.Repaint;
     Results.SQL := SQLBatch[i].SQL;