diff --git a/source/dbconnection.pas b/source/dbconnection.pas
index 05e8b095..e23ff83f 100644
--- a/source/dbconnection.pas
+++ b/source/dbconnection.pas
@@ -2734,6 +2734,7 @@ begin
               Result := Result + ' COMMENT ' + EscapeString(Comments.Col('comment'));
               Break;
             end;
+            Comments.Next;
           end;
         end;