diff --git a/compiler/systems/t_msdos.pas b/compiler/systems/t_msdos.pas
index b5833a3c54..953420d771 100644
--- a/compiler/systems/t_msdos.pas
+++ b/compiler/systems/t_msdos.pas
@@ -449,7 +449,7 @@ begin
   BlockWrite(f,maxalloc,2);
   close(f);
   {$pop}
-  if ioresult<>0 then;
+  if ioresult<>0 then
     Result:=true;
 end;
 
diff --git a/compiler/systems/t_win.pas b/compiler/systems/t_win.pas
index 67d44f8ba2..383f2047a0 100644
--- a/compiler/systems/t_win.pas
+++ b/compiler/systems/t_win.pas
@@ -1797,7 +1797,7 @@ implementation
         freemem(zerobuf,maxfillsize);
         close(f);
         {$pop}
-        if ioresult<>0 then;
+        if ioresult<>0 then
           postprocessexecutable:=true;
       end;
 
diff --git a/packages/chm/src/chmwriter.pas b/packages/chm/src/chmwriter.pas
index d5b89d597c..1bbf03157e 100644
--- a/packages/chm/src/chmwriter.pas
+++ b/packages/chm/src/chmwriter.pas
@@ -1138,7 +1138,7 @@ end;
 
 procedure TChmWriter.WriteSTRINGS;
 begin
-  if FStringsStream.Size = 0 then;
+  if FStringsStream.Size = 0 then
     FStringsStream.WriteByte(0);
   FStringsStream.Position := 0;
   PostAddStreamToArchive('#STRINGS', '/', FStringsStream);
diff --git a/packages/fcl-sdo/src/base/sdo_xsdparser.pas b/packages/fcl-sdo/src/base/sdo_xsdparser.pas
index 0338210dd5..1a92d6a59f 100644
--- a/packages/fcl-sdo/src/base/sdo_xsdparser.pas
+++ b/packages/fcl-sdo/src/base/sdo_xsdparser.pas
@@ -1303,7 +1303,7 @@ begin
       raise EXsdParserException.CreateFmt(SERR_ExpectedTypeDefinition,[FTypeName]);
     locContinue := locSym.getBoolean(s_Unresolved) or
                    (IsEmbeddedType(locSym) <> FEmbededDef);
-    if not locContinue then;
+    if not locContinue then
       Result := locSym;
   end;
   if locContinue then begin
diff --git a/packages/fcl-web/src/base/fpwebproxy.pp b/packages/fcl-web/src/base/fpwebproxy.pp
index c19ab96f72..01f0cc994b 100644
--- a/packages/fcl-web/src/base/fpwebproxy.pp
+++ b/packages/fcl-web/src/base/fpwebproxy.pp
@@ -248,7 +248,7 @@ end;
 
 procedure TProxyWebModule.DoLog(const aMethod,aLocation, aFromURL, aToURL: String);
 begin
-  If Assigned(ProxyManager) and Assigned(ProxyManager.OnLog) then;
+  If Assigned(ProxyManager) and Assigned(ProxyManager.OnLog) then
     ProxyManager.OnLog(Self,aMethod,aLocation,aFromURl,aToURL);
 end;
 
diff --git a/packages/ptc/src/wince/gapi/wincegapiconsolei.inc b/packages/ptc/src/wince/gapi/wincegapiconsolei.inc
index c2b9c2ad83..789ade3a51 100644
--- a/packages/ptc/src/wince/gapi/wincegapiconsolei.inc
+++ b/packages/ptc/src/wince/gapi/wincegapiconsolei.inc
@@ -153,7 +153,7 @@ procedure TWinCEGAPIConsole.Close;
 begin
   LOG('TWinCEGAPIConsole.Close');
 
-  if FGXDisplayIsOpen Then;
+  if FGXDisplayIsOpen then
     GXCloseDisplay;
   FGXDisplayIsOpen := False;