* Correct errors like "then;" . Fixes issue #41171

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;
 

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;
 

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);

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

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;
 

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;