Possible bad places of ';' after 'then'

<compiler\systems\t_msdos.pas>:

  if ioresult<>0 then;
    Result:=true;
end;

<compiler\systems\t_win.pas>:

        if ioresult<>0 then;
          postprocessexecutable:=true;
      end;

<packages\chm\src\chmwriter.pas>

procedure TChmWriter.WriteSTRINGS;
begin
  if FStringsStream.Size = 0 then;
    FStringsStream.WriteByte(0);

<packages\fcl-sdo\src\base\sdo_xsdparser.pas>

    if not locContinue then;
      Result := locSym;

<packages\fcl-web\src\base\fpwebproxy.pp>

  If Assigned(ProxyManager) and Assigned(ProxyManager.OnLog) then;
    ProxyManager.OnLog(Self,aMethod,aLocation,aFromURl,aToURL);

<packages\ptc\src\wince\gapi\wincegapiconsolei.inc>

  if FGXDisplayIsOpen Then;
    GXCloseDisplay;