diff --git a/components/synedit/syngutterlineoverview.pp b/components/synedit/syngutterlineoverview.pp index 1051d81dc2..d41602c6ca 100644 --- a/components/synedit/syngutterlineoverview.pp +++ b/components/synedit/syngutterlineoverview.pp @@ -1211,10 +1211,9 @@ end; function TSynGutterLOvProviderBookmarks.IndexOfSynMark(ASynMark: TSynEditMark): Integer; begin Result := FMarkList.Count - 1; - while Result >= 0 do begin; + while Result >= 0 do begin if FMarkList[Result].FData = Pointer(ASynMark) then exit; dec(Result); - end; end;