Mass typo fixes in comments for packages part 4/5.

packages/pasjpeg/examples/cdjpeg.pas

@@ -1,6 +1,6 @@
 Unit CdJpeg;
 
-{ OriginaL : cdjpeg.h+cdjpeg.c ;  Copyright (C) 1994-1996, Thomas G. Lane.
+{ OriginL : cdjpeg.h+cdjpeg.c ;  Copyright (C) 1994-1996, Thomas G. Lane.
 
   This file contains common support routines used by the IJG application
   programs (cjpeg, djpeg, jpegtran).

packages/pasjpeg/examples/example.pas

@@ -375,14 +375,14 @@ begin
   { We set up the normal JPEG error routines, then override error_exit. }
   cinfo.err := jpeg_std_error(jerr.pub);
   jerr.pub.error_exit := my_error_exit;
-  jerr.pub.trace_level := 3;    { I'm debbuging a lot (Nomssi) }
+  jerr.pub.trace_level := 3;    { I'm debugging a lot (Nomssi) }
   { Establish the setjmp return context for my_error_exit to use. }
   if (setjmp(jerr.setjmp_buffer)<>0) then
   begin
     { If we get here, the JPEG code has signaled an error.
       We need to clean up the JPEG object, close the input file, and return. }
     { Nomssi: if we get here, we are in trouble, because e.g. cinfo.mem
-              is not guaranted to be NIL }
+              is not guaranteed to be NIL }
     jpeg_destroy_decompress(@cinfo);
 {$ifdef delphi_stream}
     infile.Free;

packages/pasjpeg/examples/wrjpgcom.pas

@@ -587,7 +587,7 @@ begin
     end;
   end;
   { Duplicate the remainder of the source file.
-    Note that any COM markers occuring after SOF will not be touched. }
+    Note that any COM markers occurring after SOF will not be touched. }
   write_marker(marker);
   copy_rest_of_file();
 

packages/pasjpeg/readme.txt

@@ -28,8 +28,8 @@ progressive compression processes to Turbo Pascal 7.0 for DOS (TP). The code
 has been tested under Delphi 3.0, it can be ported to other Pascal
 environments, since many compilers try to be compatible to TP.
 
-JPEG (pronounced "jay-peg") is a standardized familly of algorithms for
-compression of continous tone still images. Most JPEG processes are lossy,
+JPEG (pronounced "jay-peg") is a standardized family of algorithms for
+compression of continuous tone still images. Most JPEG processes are lossy,
 the output image is not exactly identical to the input image. However, on
 typical photographic images, very good compression levels can be obtained
 with no visible change, and remarkably high compression levels are possible
@@ -118,7 +118,7 @@ jmorecfg.pas    Additional configuration declarations; need not be changed
                 for a standard installation.
 jdeferr.pas     defines the error and message text.
 jerror.pas      Declares JPEG library's error and trace message codes.
-jinclude.pas    the place to specify system depedent input/output code.
+jinclude.pas    the place to specify system dependent input/output code.
 jdct.pas        Private declarations for forward & reverse DCT subsystems.
 
 These files contain most of the functions intended to be called directly by

packages/pasjpeg/src/jcapistd.pas

@@ -42,7 +42,7 @@ uses
 { Compression initialization.
   Before calling this, all parameters and a data destination must be set up.
 
-  We require a write_all_tables parameter as a failsafe check when writing
+  We require a write_all_tables parameter as a fail safe check when writing
   multiple datastreams from the same compression object.  Since prior runs
   will have left all the tables marked sent_table=TRUE, a subsequent run
   would emit an abbreviated stream (no tables) by default.  This may be what
@@ -88,7 +88,7 @@ implementation
 { Compression initialization.
   Before calling this, all parameters and a data destination must be set up.
 
-  We require a write_all_tables parameter as a failsafe check when writing
+  We require a write_all_tables parameter as a fail safe check when writing
   multiple datastreams from the same compression object.  Since prior runs
   will have left all the tables marked sent_table=TRUE, a subsequent run
   would emit an abbreviated stream (no tables) by default.  This may be what

packages/pasjpeg/src/jidctasm.pas

@@ -500,7 +500,7 @@ asm
   {end;}
         jmp     @loop518
 @loop519:
-  { Save to memory what we've registerized for the preceding loop. }
+  { Save to memory what we've registered for the preceding loop. }
 
   { Pass 2: process rows from work array, store into output array. }
   { Note that we must descale the results by a factor of 8 == 2**3, }

packages/pasjpeg/src/jmemmgr.pas

@@ -269,7 +269,7 @@ end;
   For these, we use pooled storage.  When a new pool must be created,
   we try to get enough space for the current request plus a "slop" factor,
   where the slop will be the amount of leftover space in the new pool.
-  The speed vs. space tradeoff is largely determined by the slop values.
+  The speed vs. space trade-off is largely determined by the slop values.
   A different slop value is provided for each pool class (lifetime),
   and we also distinguish the first pool of a class from later ones.
   NOTE: the values given work fairly well on both 16- and 32-bit-int

packages/pasjpeg/src/jmorecfg.pas

@@ -155,7 +155,7 @@ type
   They must be at least as wide as specified; but making them too big
   won't cost a huge amount of memory, so we don't provide special
   extraction code like we did for JSAMPLE.  (In other words, these
-  typedefs live at a different point on the speed/space tradeoff curve.) }
+  typedefs live at a different point on the speed/space trade-off curve.) }
 
 
 { UINT8 must hold at least the values 0..255. }

packages/pasjpeg/src/jquant2.pas

@@ -879,7 +879,7 @@ const
 { The next three routines implement inverse colormap filling.  They could
   all be folded into one big routine, but splitting them up this way saves
   some stack space (the mindist[] and bestdist[] arrays need not coexist)
-  and may allow some compilers to produce better code by registerizing more
+  and may allow some compilers to produce better code by registering more
   inner-loop variables. }
 
 {LOCAL}

packages/pastojs/src/fppas2js.pp

@@ -1707,7 +1707,7 @@ type
     procedure AddElementData(Data: TPas2JsElementData); virtual;
     function CreateElementData(DataClass: TPas2JsElementDataClass;
       El: TPasElement): TPas2JsElementData; virtual;
-    // checking compatibilility
+    // checking compatibility
     function CheckEqualCompatibilityUserType(const LHS,
       RHS: TPasResolverResult; ErrorEl: TPasElement;
       RaiseOnIncompatible: boolean): integer; override;
@@ -4808,7 +4808,7 @@ begin
           else if C=TPasConstructor then
             begin
             if Proc.IsVirtual then
-              // constructor of external class can't be overriden -> forbid virtual
+              // constructor of external class can't be overridden -> forbid virtual
               RaiseMsg(20170323100447,nInvalidXModifierY,sInvalidXModifierY,
                 [Proc.ElementTypeName,'virtual,external'],Proc);
             ComputeConstString(Proc.LibrarySymbolName,true,true);
@@ -11111,7 +11111,7 @@ function TPasToJSConverter.ConvertInheritedExpr(El: TInheritedExpr;
           and TPasClassType(AncestorProc.Parent).IsExternal then
         begin
         // ancestor is in an external class
-        // They could be overriden, without a Pascal declaration
+        // They could be overridden, without a Pascal declaration
         // -> use the direct ancestor class of the current proc
         aClass:=SelfContext.ThisVar.Element as TPasClassType;
         if aClass.CustomData=nil then
@@ -13384,7 +13384,7 @@ begin
       ElType:=aResolver.ResolveAliasType(aResolver.GetArrayElType(ArrayType));
       while (ElType.ClassType=TPasArrayType) and (length(TPasArrayType(ElType).Ranges)>0) do
         begin
-        // array of static array, Note: setlength reallocs static arrays
+        // array of static array, Note: setlength reallocate static arrays
         ArrayType:=ElType as TPasArrayType;
         for i:=0 to length(ArrayType.Ranges)-1 do
           begin
@@ -21720,7 +21720,7 @@ begin
       else if C.InheritsFrom(TPasProcedure) then
         begin
         if aResolver.GetProcTemplateTypes(TPasProcedure(P))<>nil then
-          continue; // parametrized functions cannot be published
+          continue; // parameterized functions cannot be published
         if (P.CustomData as TPas2JSProcedureScope).SpecializedFromItem<>nil then
           continue; // specialized function cannot be published
         NewEl:=CreateRTTIMemberMethod(El,Members,i,MembersFuncContext);

packages/pastojs/src/pas2jscompiler.pp

@@ -3770,7 +3770,7 @@ begin
   begin
     C:=aValue[P];
     case C of
-    'D': // wite compiler date
+    'D': // write compiler date
       AppendInfo(GetCompiledDate);
     'V': // write short version
       AppendInfo(GetVersion(true));

packages/pastojs/src/pas2jsfiler.pp

@@ -63,7 +63,7 @@ Works:
 
   - TPCUReader.AddPendingSpecialize
   - TPCUReader.Set_SpecializeParam
-    - called when a Param of a spezialization was resolved,
+    - called when a Param of a specialization was resolved,
     - can trigger Resolver.GetSpecializedEl and ReadExternalReferences
   - TPCUReader.ReadExternalSpecialized
     -
@@ -4375,7 +4375,7 @@ begin
     Obj.Add('Forward',true);
   if El.IsExternal then
     Obj.Add('External',true);
-  // not needed IsShortDefinition: Boolean; -> class(anchestor); without end
+  // not needed IsShortDefinition: Boolean; -> class(ancestor); without end
   WriteExpr(Obj,El,'GUID',El.GUIDExpr,aContext);
   if El.Modifiers.Count>0 then
     begin
@@ -4687,7 +4687,7 @@ begin
 
   if Scope.SpecializedFromItem<>nil then
     begin
-    // spezialiations are generated on the fly -> cannot be stored
+    // specializations are generated on the fly -> cannot be stored
     RaiseMsg(20191120180305,El,GetObjPath(Scope.SpecializedFromItem.FirstSpecialize));
     end;
   if (Scope.ImplJS<>nil) and (Scope.ImplProc<>nil) then
@@ -9043,7 +9043,7 @@ begin
   ReadElType(Obj,'Ancestor',El,@Set_ClassType_AncestorType,aContext);
   ReadElType(Obj,'HelperFor',El,@Set_ClassType_HelperForType,aContext);
   ReadBoolean(Obj,'External',El.IsExternal,El);
-  // not needed IsShortDefinition: Boolean; -> class(anchestor); without end
+  // not needed IsShortDefinition: Boolean; -> class(ancestor); without end
   El.GUIDExpr:=ReadExpr(Obj,El,'GUID',aContext);
 
   // Modifiers

packages/pastojs/tests/tcgenerics.pas

@@ -839,7 +839,7 @@ begin
   'type',
   '  TObject = class end;',
   '  TPoint<T> = class',
-  '    var x: TPoint;', // alowed in objfpc, forbidden in delphi
+  '    var x: TPoint;', // allowed in objfpc, forbidden in delphi
   '  end;',
   'var p: specialize TPoint<word>;',
   'begin',

packages/paszlib/examples/example.pas

@@ -3,7 +3,7 @@ program example;
 { example.c -- usage example of the zlib compression library
   Copyright (C) 1995-1998 Jean-loup Gailly.
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/examples/minigzip.pas

@@ -12,7 +12,7 @@ program minigzip;
  real thing. On MSDOS, use only on file names without extension
  or in pipe mode.
 
-  Pascal tranlastion based on code contributed by Francisco Javier Crespo
+  Pascal translation based on code contributed by Francisco Javier Crespo
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/examples/minizip.pas

@@ -8,7 +8,7 @@ program MiniZip;
   to the new .zip file.
   -o an existing .zip file with be overwritten without warning
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 2000 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/src/adler.pas

@@ -6,7 +6,7 @@ unit adler;
   adler32.c -- compute the Adler-32 checksum of a data stream
   Copyright (C) 1995-1998 Mark Adler
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/src/gzio.pas

@@ -8,7 +8,7 @@ unit gzio;
 
   Define NO_DEFLATE to compile this file without the compression code
 
-  Pascal tranlastion based on code contributed by Francisco Javier Crespo
+  Pascal translation based on code contributed by Francisco Javier Crespo
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }
@@ -333,7 +333,7 @@ end;
 
   Read a byte from a gz_stream. Updates next_in and avail_in.
   Returns EOF for end of file.
-  IN assertion: the stream s has been sucessfully opened for reading.
+  IN assertion: the stream s has been successfully opened for reading.
 
 ============================================================================}
 
@@ -421,7 +421,7 @@ end;
   Set s^.err  to Z_DATA_ERROR if the magic header is present but the rest of
   the header is incorrect.
 
-  IN assertion: the stream s has already been created sucessfully;
+  IN assertion: the stream s has already been created successfully;
   s^.stream.avail_in is zero for the first time, but may be non-zero
   for concatenated .gz files
 
@@ -647,7 +647,7 @@ begin
       next_out := s^.stream.next_out;
       while (next_out <> start ) do begin
         dec (next_out);
-        inc (crclen);   { Hack because Pascal cannot substract pointers }
+        inc (crclen);   { Hack because Pascal cannot subtract pointers }
       end;
     {$endif}
       { Check CRC and original size }
@@ -686,7 +686,7 @@ begin
   next_out := s^.stream.next_out;
   while (next_out <> start ) do begin
     dec (next_out);
-    inc (crclen);   { Hack because Pascal cannot substract pointers }
+    inc (crclen);   { Hack because Pascal cannot subtract pointers }
   end;
 {$endif}
   s^.crc := crc32 (s^.crc, start, crclen);

packages/paszlib/src/infblock.pas

@@ -6,7 +6,7 @@ unit infblock;
   infblock.c -- interpret and process block types to last block
   Copyright (C) 1995-1998 Mark Adler
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }
@@ -82,7 +82,7 @@ Const
       end-of-block.  Note however that the static length tree defines
       288 codes just to fill out the Huffman codes.  Codes 286 and 287
       cannot be used though, since there is no length base or extra bits
-      defined for them.  Similarily, there are up to 30 distance codes.
+      defined for them.  Similarly, there are up to 30 distance codes.
       However, static trees define 32 codes (all 5 bits) to fill out the
       Huffman codes, but the last two had better not show up in the data.
    7. Unzip can check dynamic Huffman blocks for complete code sets.

packages/paszlib/src/infcodes.pas

@@ -5,7 +5,7 @@ unit infcodes;
 { infcodes.c -- process literals and length/distance pairs
   Copyright (C) 1995-1998 Mark Adler
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/src/inffast.pas

@@ -7,7 +7,7 @@ Unit InfFast;
   inffast.c -- process literals and length/distance pairs fast
   Copyright (C) 1995-1998 Mark Adler
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/src/inftrees.pas

@@ -10,7 +10,7 @@ unit inftrees;
    part of the implementation of the compression library and is
    subject to change.
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/src/infutil.pas

@@ -9,7 +9,7 @@ Unit infutil;
    part of the implementation of the compression library and is
    subject to change.
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/src/trees.pas

@@ -8,7 +8,7 @@ unit Trees;
   trees.c -- output deflated data using Huffman coding
   Copyright (C) 1995-1998 Jean-loup Gailly
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/src/unzip.pas

@@ -18,7 +18,7 @@ unit Unzip;
    Encryption and multi volume ZipFile (span) are not supported.
    Old compressions used by old PKZip 1.x are not supported
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 2000 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt }
 
@@ -100,11 +100,11 @@ type
 
 function unzStringFileNameCompare(const fileName1: PAnsiChar; const fileName2: PAnsiChar; iCaseSensitivity: longint): longint;
 { Compare two filename (fileName1,fileName2).
-  If iCaseSenisivity = 1 (1=true),
-    comparision is case sensitive (like strcmp)
-  If iCaseSenisivity = 2 (0=false),
-    comparision is not case sensitive (like strcmpi or strcasecmp)
-  If iCaseSenisivity = 0, case sensitivity is defaut of your
+  If iCaseSensitivity = 1 (1=true),
+    comparison is case sensitive (like strcmp)
+  If iCaseSensitivity = 2 (0=false),
+    comparison is not case sensitive (like strcmpi or strcasecmp)
+  If iCaseSensitivity = 0, case sensitivity is default of your
     operating system like 1 on Unix, 2 on Windows)
 }
 
@@ -168,7 +168,7 @@ function unzLocateFile(afile: unzFile; const szFileName: PAnsiChar; iCaseSensiti
 function unzGetCurrentFileInfo(afile: unzFile; pfile_info: unz_file_info_ptr; szFileName: PAnsiChar; fileNameBufferSize: longint; extraField: pointer; extraFieldBufferSize: longint; szComment: PAnsiChar; commentBufferSize: longint): longint; { ZEXPORT }
 
 { Get Info about the current file
-  if pfile_info<>NIL, the pfile_info^ structure will contain somes
+  if pfile_info<>NIL, the pfile_info^ structure will contain some
   info about the current file
   if szFileName<>NIL, the filemane string will be copied in szFileName
       (fileNameBufferSize is the size of the buffer)
@@ -202,7 +202,7 @@ function unzReadCurrentFile(afile: unzFile; buf: pointer; len: cardinal): longin
   buf contain buffer where data must be copied
   len the size of buf.
 
-  return the number of byte copied if somes bytes are copied
+  return the number of byte copied if some bytes are copied
   return 0 if the end of file was reached
   return <0 with error code if there is an error
     (UNZ_ERRNO for IO error, or zLib error for uncompress error) }
@@ -300,7 +300,7 @@ type
 { unz_s contain internal information about the zipfile }
 type
   unz_s = record
-    afile: FILEptr;                 { io structore of the zipfile }
+    afile: FILEptr;                 { io structure of the zipfile }
     gi:    unz_global_info;         { public global information }
     byte_before_the_zipfile: longint; { byte before the zipfile, (>0 for sfx)}
     num_file: longint;                { number of the current file in the zipfile}
@@ -323,7 +323,7 @@ type
 { ===========================================================================
   Read a byte from a gz_stream; update next_in and avail_in. Return EOF
   for end of file.
-  IN assertion: the stream s has been sucessfully opened for reading. }
+  IN assertion: the stream s has been successfully opened for reading. }
 
 
 function unzlocal_getByte(fin: FILEptr; var pi: longint): longint;
@@ -445,11 +445,11 @@ const
 
 function unzStringFileNameCompare(const fileName1: PAnsiChar; const fileName2: PAnsiChar; iCaseSensitivity: longint): longint; { ZEXPORT }
 { Compare two filename (fileName1,fileName2).
-  If iCaseSenisivity = 1 (1=true),
-    comparision is case sensitive (like strcmp)
-  If iCaseSenisivity = 2 (0=false),
-    comparision is not case sensitive (like strcmpi or strcasecmp)
-  If iCaseSenisivity = 0, case sensitivity is defaut of your
+  If iCaseSensitivity = 1 (1=true),
+    comparison is case sensitive (like strcmp)
+  If iCaseSensitivity = 2 (0=false),
+    comparison is not case sensitive (like strcmpi or strcasecmp)
+  If iCaseSensitivity = 0, case sensitivity is default of your
     operating system like 1 on Unix, 2 on Windows)
 }
 begin
@@ -560,10 +560,10 @@ var
   central_pos, uL: longint;
   fin: FILEptr;
 
-  number_disk:     longint; { number of the current dist, used for spaning ZIP,
+  number_disk:     longint; { number of the current dist, used for spanning ZIP,
                          unsupported, always 0 }
   number_disk_with_CD: longint; { number the the disk with central dir,
-                        used for spaning ZIP, unsupported, always 0 }
+                        used for spanning ZIP, unsupported, always 0 }
   number_entry_CD: longint; { total number of entries in the central dir
                                  (same than number_entry on nospan) }
 
@@ -870,7 +870,7 @@ end;
 function unzGetCurrentFileInfo(afile: unzFile; pfile_info: unz_file_info_ptr; szFileName: PAnsiChar; fileNameBufferSize: longint; extraField: pointer; extraFieldBufferSize: longint; szComment: PAnsiChar; commentBufferSize: longint): longint; { ZEXPORT }
 
 { Get Info about the current file
-  if pfile_info<>NIL, the pfile_info^ structure will contain somes
+  if pfile_info<>NIL, the pfile_info^ structure will contain some
   info about the current file
   if szFileName<>NIL, the filemane string will be copied in szFileName
       (fileNameBufferSize is the size of the buffer)
@@ -1204,7 +1204,7 @@ end;
   buf contain buffer where data must be copied
   len the size of buf.
 
-  return the number of byte copied if somes bytes are copied
+  return the number of byte copied if some bytes are copied
   return 0 if the end of file was reached
   return <0 with error code if there is an error
     (UNZ_ERRNO for IO error, or zLib error for uncompress error) }

packages/paszlib/src/zbase.pas

@@ -34,7 +34,7 @@ unit ZBase;
   (zlib format), rfc1951.txt (deflate format) and rfc1952.txt (gzip format).
 
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/src/zcompres.pas

@@ -5,7 +5,7 @@ Unit ZCompres;
 { compress.c -- compress a memory buffer
   Copyright (C) 1995-1998 Jean-loup Gailly.
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/src/zdeflate.pas

@@ -14,7 +14,7 @@ unit ZDeflate;
            deflate.c -- compress data using the deflation algorithm
   Copyright (C) 1995-1996 Jean-loup Gailly.
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/src/zip.pas

@@ -15,7 +15,7 @@ unit Zip;
 
   For decompression of .zip files, look at unzip.pas
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 2000 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt }
 
@@ -124,7 +124,7 @@ uses
 {$ENDIF FPC_DOTTEDUNITS}
 
 const
-  VERSIONMADEBY = ($0); { platform depedent }
+  VERSIONMADEBY = ($0); { platform dependent }
 
 const
   zip_copyright: PAnsiChar = ' zip 0.15 Copyright 1998 Gilles Vollant ';
@@ -149,7 +149,7 @@ type
     next_datablock: linkedlist_datablock_internal_ptr;
     avail_in_this_block: longint;
     filled_in_this_block: longint;
-    unused: longint; { for future use and alignement }
+    unused: longint; { for future use and alignment }
     Data:   array[0..SIZEDATA_INDATABLOCK - 1] of byte;
   end;
 
@@ -167,12 +167,12 @@ type
     pos_in_buffered_data: integer;  { last written byte in buffered_data }
 
     pos_local_header: longint;     { offset of the local header of the file
-                                    currenty writing }
+                                    currently writing }
     central_header: PAnsiChar;       { central header data for the current file }
     size_centralheader: longint;   { size of the central header for cur file }
     flag: longint;                 { flag of the file currently writing }
 
-    method:  longint;                { compression method of file currenty wr.}
+    method:  longint;                { compression method of file currently wr.}
     buffered_data: array[0..Z_BUFSIZE - 1] of byte;{ buffer contain compressed data to be written}
     dosDate: longint;
     crc32:   longint;
@@ -183,7 +183,7 @@ type
     filezip: FILEptr;
     central_dir: linkedlist_data;  { datablock with central dir in construction}
     in_opened_file_inzip: boolean; { TRUE if a file in the zip is currently writ.}
-    ci: curfile_info;              { info on the file curretly writing }
+    ci: curfile_info;              { info on the file currently writing }
 
     begin_pos:    longint;            { position of the beginning of the zipfile }
     number_entry: longint;

packages/paszlib/src/zuncompr.pas

@@ -5,7 +5,7 @@ unit ZUncompr;
 { uncompr.c -- decompress a memory buffer
   Copyright (C) 1995-1998 Jean-loup Gailly.
 
-  Pascal tranlastion
+  Pascal translation
   Copyright (C) 1998 by Jacques Nomssi Nzali
   For conditions of distribution and use, see copyright notice in readme.txt
 }

packages/paszlib/tests/tczipper.pp

@@ -848,7 +848,7 @@ begin
     writeln('(note: this will take a long time)');
     {Note: tested tools with this file:
     - info-zip unzip 6.0
-    - Ionic's DotNetZip library unzip.exe utility verison 1.9.1.8 works
+    - Ionic's DotNetZip library unzip.exe utility version 1.9.1.8 works
     - 7zip's 7za 9.22 beta works.
     }
     try

packages/postgres/src/postgres3.pp

@@ -1,4 +1,4 @@
-{ This unit contains the definitions for structures and externs for
+{ This unit contains the definitions for structures and externals for
   functions used by frontend postgres applications. It is based on
   Postgresql's libpq-fe.h.
 
@@ -60,7 +60,7 @@ const
   procedure PQconninfoFree(connOptions:PPQconninfoOption);cdecl;external External_library name 'PQconninfoFree';
 
   {
-   * close the current connection and restablish a new one with the same
+   * close the current connection and reestablish a new one with the same
    * parameters
     }
   { Asynchronous (non-blocking)  }

packages/postgres/src/postgres3dyn.pp

@@ -67,7 +67,7 @@ var
 { free the data structure returned by PQconndefaults()  }
   PQconninfoFree : procedure (connOptions:PPQconninfoOption);cdecl;
 {
-* close the current connection and restablish a new one with the same
+* close the current connection and reestablish a new one with the same
 * parameters
 }
 { Asynchronous (non-blocking)  }

packages/ptc/examples/lights.pp

@@ -148,7 +148,7 @@ begin
           { line loop }
           for y := 0 to 199 do
           begin
-            { calcalate pointer to start of line }
+            { calculate pointer to start of line }
             line := pixels + y * width;
 
             { get y deltas }

packages/ptc/examples/save.pp

@@ -191,7 +191,7 @@ begin
       { iterate across surface x }
       for x := 0 to width - 1 do
       begin
-        { calculate the mandelbrot interation count }
+        { calculate the mandelbrot iteration count }
         count := calculate(real, imaginary, maximum);
 
         { calculate color table index }

packages/ptc/src/core/baseconsolei.inc

@@ -215,7 +215,7 @@ begin
   Result := FReleaseEnabled;
 end;
 
-{ must be overriden in consoles, that support moving the mouse cursor }
+{ must be overridden in consoles, that support moving the mouse cursor }
 function TPTCBaseConsole.MoveMouseTo(X, Y: Integer): Boolean;
 begin
   Result := False;

packages/ptc/src/core/copyi.inc

@@ -76,10 +76,10 @@ begin
   and can be used to track down errors early caused by passing
   nil pointers to surface and console functions.
 
-  Even though technicially it is the users responsibility
+  Even though technically it is the users responsibility
   to ensure that all pointers are non-nil, it is useful
   to provide a check here in debug build to prevent such
-  bugs from ever occuring.
+  bugs from ever occurring.
 
   The checking function also tests that the source and destination
   pointers are not the same, a bug that can be caused by copying

packages/ptc/src/dos/textfx2/textfx2.pp

@@ -237,7 +237,7 @@ begin
   regs.ax := $1114; { Set font }
   regs.bx := 0;
   realintr($10, regs);
-  regs.bh := 0;      { Ressurrect cursor }
+  regs.bh := 0;      { Resurrect cursor }
   regs.ah := 3;
   realintr($10, regs);
   regs.cx := regs.cx and $dfff;
@@ -372,7 +372,7 @@ end;
  *
  * Bright and dark color values are just thrown in without any
  * math background. (How could there be some? At this point you
- * should realize we have thrown all accurancy out the window).
+ * should realize we have thrown all accuracy out the window).
  *
  * So. They work - kinda. They don't work correctly, but there
  * you go.

packages/ptc/src/win32/directx/p_ddraw.pp

@@ -45,7 +45,7 @@ uses
 (*
  * If you wish an application built against the newest version of DirectDraw
  * to run against an older DirectDraw run time then define DIRECTDRAW_VERSION
- * to be the earlies version of DirectDraw you wish to run against. For,
+ * to be the earliest version of DirectDraw you wish to run against. For,
  * example if you wish an application to run against a DX 3 runtime define
  * DIRECTDRAW_VERSION to be 0x0300.
  *)
@@ -223,7 +223,7 @@ type
 
 (*
  * Flags for DirectDrawEnumerateEx
- * DirectDrawEnumerateEx supercedes DirectDrawEnumerate. You must use GetProcAddress to
+ * DirectDrawEnumerateEx supersedes DirectDrawEnumerate. You must use GetProcAddress to
  * obtain a function pointer (of type LPDIRECTDRAWENUMERATEEX) to DirectDrawEnumerateEx.
  * By default, only the primary display device is enumerated.
  * DirectDrawEnumerate is equivalent to DirectDrawEnumerate(,,DDENUM_NONDISPLAYDEVICES)
@@ -443,9 +443,9 @@ type
   TDDCAPS_DX1 = record
     dwSize: DWORD;                      // size of the DDDRIVERCAPS structure
     dwCaps: DWORD;                      // driver specific capabilities
-    dwCaps2: DWORD;                     // more driver specific capabilites
+    dwCaps2: DWORD;                     // more driver specific capabilities
     dwCKeyCaps: DWORD;                  // color key capabilities of the surface
-    dwFXCaps: DWORD;                    // driver specific stretching and effects capabilites
+    dwFXCaps: DWORD;                    // driver specific stretching and effects capabilities
     dwFXAlphaCaps: DWORD;               // alpha driver specific capabilities
     dwPalCaps: DWORD;                   // palette capabilities
     dwSVCaps: DWORD;                    // stereo vision capabilities
@@ -470,10 +470,10 @@ type
     ddsCaps: TDDSCAPS;                  // DDSCAPS structure has all the general capabilities
     dwMinOverlayStretch: DWORD;         // minimum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxOverlayStretch: DWORD;         // maximum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
-    dwMinLiveVideoStretch: DWORD;       // OBSOLETE! This field remains for compatability reasons only
-    dwMaxLiveVideoStretch: DWORD;       // OBSOLETE! This field remains for compatability reasons only
-    dwMinHwCodecStretch: DWORD;         // OBSOLETE! This field remains for compatability reasons only
-    dwMaxHwCodecStretch: DWORD;         // OBSOLETE! This field remains for compatability reasons only
+    dwMinLiveVideoStretch: DWORD;       // OBSOLETE! This field remains for compatibility reasons only
+    dwMaxLiveVideoStretch: DWORD;       // OBSOLETE! This field remains for compatibility reasons only
+    dwMinHwCodecStretch: DWORD;         // OBSOLETE! This field remains for compatibility reasons only
+    dwMaxHwCodecStretch: DWORD;         // OBSOLETE! This field remains for compatibility reasons only
     dwReserved1: DWORD;                 // reserved
     dwReserved2: DWORD;                 // reserved
     dwReserved3: DWORD;                 // reserved
@@ -481,15 +481,15 @@ type
 
 (*
  * This structure is the DDCAPS structure as it was in version 2 and 3 of Direct X.
- * It is present for back compatability.
+ * It is present for back compatibility.
  *)
   PDDCAPS_DX3 = ^TDDCAPS_DX3;
   TDDCAPS_DX3 = record
     dwSize: DWORD;                      // size of the DDDRIVERCAPS structure
     dwCaps: DWORD;                      // driver specific capabilities
-    dwCaps2: DWORD;                     // more driver specific capabilites
+    dwCaps2: DWORD;                     // more driver specific capabilities
     dwCKeyCaps: DWORD;                  // color key capabilities of the surface
-    dwFXCaps: DWORD;                    // driver specific stretching and effects capabilites
+    dwFXCaps: DWORD;                    // driver specific stretching and effects capabilities
     dwFXAlphaCaps: DWORD;               // alpha driver specific capabilities
     dwPalCaps: DWORD;                   // palette capabilities
     dwSVCaps: DWORD;                    // stereo vision capabilities
@@ -541,15 +541,15 @@ type
 
 (*
  * This structure is the DDCAPS structure as it was in version 5 of Direct X.
- * It is present for back compatability.
+ * It is present for back compatibility.
  *)
   PDDCAPS_DX5 = ^TDDCAPS_DX5;
   TDDCAPS_DX5 = record
 (*  0*) dwSize: DWORD;                  // size of the DDDRIVERCAPS structure
 (*  4*) dwCaps: DWORD;                  // driver specific capabilities
-(*  8*) dwCaps2: DWORD;                 // more driver specific capabilites
+(*  8*) dwCaps2: DWORD;                 // more driver specific capabilities
 (*  c*) dwCKeyCaps: DWORD;              // color key capabilities of the surface
-(* 10*) dwFXCaps: DWORD;                // driver specific stretching and effects capabilites
+(* 10*) dwFXCaps: DWORD;                // driver specific stretching and effects capabilities
 (* 14*) dwFXAlphaCaps: DWORD;           // alpha driver specific capabilities
 (* 18*) dwPalCaps: DWORD;               // palette capabilities
 (* 1c*) dwSVCaps: DWORD;                // stereo vision capabilities
@@ -608,9 +608,9 @@ type
   TDDCAPS_DX6 = record
 (*  0*) dwSize: DWORD;                  // size of the DDDRIVERCAPS structure
 (*  4*) dwCaps: DWORD;                  // driver specific capabilities
-(*  8*) dwCaps2: DWORD;                 // more driver specific capabilites
+(*  8*) dwCaps2: DWORD;                 // more driver specific capabilities
 (*  c*) dwCKeyCaps: DWORD;              // color key capabilities of the surface
-(* 10*) dwFXCaps: DWORD;                // driver specific stretching and effects capabilites
+(* 10*) dwFXCaps: DWORD;                // driver specific stretching and effects capabilities
 (* 14*) dwFXAlphaCaps: DWORD;           // alpha caps
 (* 18*) dwPalCaps: DWORD;               // palette capabilities
 (* 1c*) dwSVCaps: DWORD;                // stereo vision capabilities
@@ -670,9 +670,9 @@ type
   TDDCAPS_DX7 = record
 (*  0*) dwSize: DWORD;                  // size of the DDDRIVERCAPS structure
 (*  4*) dwCaps: DWORD;                  // driver specific capabilities
-(*  8*) dwCaps2: DWORD;                 // more driver specific capabilites
+(*  8*) dwCaps2: DWORD;                 // more driver specific capabilities
 (*  c*) dwCKeyCaps: DWORD;              // color key capabilities of the surface
-(* 10*) dwFXCaps: DWORD;                // driver specific stretching and effects capabilites
+(* 10*) dwFXCaps: DWORD;                // driver specific stretching and effects capabilities
 (* 14*) dwFXAlphaCaps: DWORD;           // alpha driver specific capabilities
 (* 18*) dwPalCaps: DWORD;               // palette capabilities
 (* 1c*) dwSVCaps: DWORD;                // stereo vision capabilities
@@ -1026,7 +1026,7 @@ end;
 (*
  * This flag causes GetDeviceIdentifier to return information about the host (typically 2D) adapter in a system equipped
  * with a stacked secondary 3D adapter. Such an adapter appears to the application as if it were part of the
- * host adapter, but is typically physcially located on a separate card. The stacked secondary's information is
+ * host adapter, but is typically physically located on a separate card. The stacked secondary's information is
  * returned when GetDeviceIdentifier's dwFlags field is zero, since this most accurately reflects the qualities
  * of the DirectDraw object involved.
  *)
@@ -1108,7 +1108,7 @@ type
 
         case Integer of
         0: (
-          dwMipMapCount: DWORD;                 // number of mip-map levels requestde
+          dwMipMapCount: DWORD;                 // number of mip-map levels requested
                                                 // dwZBufferBitDepth removed, use ddpfPixelFormat one instead
         );
         1: (
@@ -1906,7 +1906,7 @@ const
  * It indicates that this surface is THE back buffer of a surface
  * flipping structure.  DirectDraw supports N surfaces in a
  * surface flipping structure.  Only the surface that immediately
- * precedeces the DDSCAPS_FRONTBUFFER has this capability bit set.
+ * precedes the DDSCAPS_FRONTBUFFER has this capability bit set.
  * The other surfaces are identified as back buffers by the presence
  * of the DDSCAPS_FLIP capability, their attachment order, and the
  * absence of the DDSCAPS_FRONTBUFFER and DDSCAPS_BACKBUFFER
@@ -1942,7 +1942,7 @@ const
  * Indicates that this surface is THE front buffer of a surface flipping
  * structure.  It is generally set by CreateSurface when the DDSCAPS_FLIP
  * capability bit is set.
- * If this capability is sent to CreateSurface then a standalonw front buffer
+ * If this capability is sent to CreateSurface then a standalone front buffer
  * is created.  This surface will not have the DDSCAPS_FLIP capability.
  * It can be attached to other back buffers to form a flipping structure.
  * See AddAttachments for a detailed description of the behaviors in this
@@ -2230,7 +2230,7 @@ const
   DDSCAPS2_POINTS                         = $00800000;
 
 (*
- * Indicates that the vertex buffer data can be used to render rt pactches.
+ * Indicates that the vertex buffer data can be used to render rt patches.
  *)
   DDSCAPS2_RTPATCHES                      = $01000000;
 
@@ -2437,7 +2437,7 @@ const
   DDCAPS_PALETTE                  = $00008000;
 
 (*
- * Indicates that palette changes can be syncd with the veritcal refresh.
+ * Indicates that palette changes can be synchronized with the vertical refresh.
  *)
   DDCAPS_PALETTEVSYNC             = $00010000;
 
@@ -2670,7 +2670,7 @@ const
  * This caps bit is intended for internal DirectDraw use.
  * -It is only valid if DDCAPS2_NONLOCALVIDMEMCAPS is set.
  * -If this bit is set, then DDCAPS_CANBLTSYSMEM MUST be set by the driver (and
- *  all the assoicated system memory blt caps must be correct).
+ *  all the associated system memory blt caps must be correct).
  * -It implies that the system->video blt caps in DDCAPS also apply to system to
  *  nonlocal blts. I.e. the dwSVBCaps, dwSVBCKeyCaps, dwSVBFXCaps and dwSVBRops
  *  members of DDCAPS (DDCORECAPS) are filled in correctly.
@@ -2714,7 +2714,7 @@ const
 {$IFNDEF D3D_DISABLE_9EX}
 
 (*
- * Driver supports sharing of cross process resouces
+ * Driver supports sharing of cross process resources
  *)
   DDCAPS2_CANSHARERESOURCE              = $80000000;
 
@@ -3133,7 +3133,7 @@ const
  * The passed pointer is an IUnknown ptr. The cbData argument to SetPrivateData
  * must be set to sizeof(IUnknown* ). DirectDraw will call AddRef through this
  * pointer and Release when the private data is destroyed. This includes when
- * the surface or palette is destroyed before such priovate data is destroyed.
+ * the surface or palette is destroyed before such private data is destroyed.
  *)
   DDSPD_IUNKNOWNPOINTER           = $00000001;
 
@@ -3854,7 +3854,7 @@ const
 
 (*
  * EXTENDED FLAG. SEE DEFINITION OF DDBLT_EXTENDED_FLAGS.
- * This flag indidcates that the source surface contains content in a
+ * This flag indicates that the source surface contains content in a
  * linear color space. The driver may perform gamma correction to the
  * desktop color space (i.e. sRGB, gamma 2.2) as part of this blt.
  * If the device can perform such a conversion as part of the copy,
@@ -3918,7 +3918,7 @@ const
  * Flip Interval Flags. These flags indicate how many vertical retraces to wait between
  * each flip. The default is one. DirectDraw will return DDERR_WASSTILLDRAWING for each
  * surface involved in the flip until the specified number of vertical retraces has
- * ocurred. Only effective if DDCAPS2_FLIPINTERVAL is set. If that bit is not set,
+ * occurred. Only effective if DDCAPS2_FLIPINTERVAL is set. If that bit is not set,
  * DDFLIP_INTERVALn has no effect.
  *)
 
@@ -4179,7 +4179,7 @@ const
 
 (*
  * Used only with Direct3D Vertex Buffer Locks. Indicates that no vertices
- * that were referred to in Draw*PrimtiveVB calls since the start of the
+ * that were referred to in Draw*PrimitiveVB calls since the start of the
  * frame (or the last lock without this flag) will be modified during the
  * lock. This can be useful when one is only appending data to the vertex
  * buffer
@@ -4299,7 +4299,7 @@ const
 
 (*
  * Do this z blt adding the dwZBufferBaseDest to each of the sources z values
- * before comparing it with the desting z values.
+ * before comparing it with the destining z values.
  *)
   DDBLTFX_ZBUFFERBASEDEST                 = $00000100;
 
@@ -4615,7 +4615,7 @@ const
   DDERR_NO3D                              = HRESULT((DWORD(1) shl 31) or (_FACDD shl 16) or 170);
 
 (*
- * Operation could not be carried out because there is no alpha accleration
+ * Operation could not be carried out because there is no alpha acceleration
  * hardware present or available.
  *)
   DDERR_NOALPHAHW                         = HRESULT((DWORD(1) shl 31) or (_FACDD shl 16) or 180);
@@ -4788,7 +4788,7 @@ const
   DDERR_OVERLAYCANTCLIP                   = HRESULT((DWORD(1) shl 31) or (_FACDD shl 16) or 382);
 
 (*
- * Can only have ony color key active at one time for overlays
+ * Can only have only color key active at one time for overlays
  *)
   DDERR_OVERLAYCOLORKEYONLYONEACTIVE      = HRESULT((DWORD(1) shl 31) or (_FACDD shl 16) or 384);
 
@@ -4888,7 +4888,7 @@ const
   DDERR_VERTICALBLANKINPROGRESS           = HRESULT((DWORD(1) shl 31) or (_FACDD shl 16) or 537);
 
 (*
- * Informs DirectDraw that the previous Blt which is transfering information
+ * Informs DirectDraw that the previous Blt which is transferring information
  * to or from this Surface is incomplete.
  *)
   DDERR_WASSTILLDRAWING                   = HRESULT((DWORD(1) shl 31) or (_FACDD shl 16) or 540);
@@ -5000,13 +5000,13 @@ const
 
 (*
  * returned when GetOverlayPosition is called on a overlay that UpdateOverlay
- * has never been called on to establish a destionation.
+ * has never been called on to establish a destination.
  *)
   DDERR_NOOVERLAYDEST                     = HRESULT((DWORD(1) shl 31) or (_FACDD shl 16) or 578);
 
 (*
- * returned when the position of the overlay on the destionation is no longer
- * legal for that destionation.
+ * returned when the position of the overlay on the destination is no longer
+ * legal for that destination.
  *)
   DDERR_INVALIDPOSITION                   = HRESULT((DWORD(1) shl 31) or (_FACDD shl 16) or 579);
 
@@ -5039,7 +5039,7 @@ const
   DDERR_NOTLOCKED                         = HRESULT((DWORD(1) shl 31) or (_FACDD shl 16) or 584);
 
 (*
- * Windows can not create any more DCs, or a DC was requested for a paltte-indexed
+ * Windows can not create any more DCs, or a DC was requested for a palette-indexed
  * surface when the surface had no palette AND the display mode was not palette-indexed
  * (in this case DirectDraw cannot select a proper palette into the DC)
  *)
@@ -5238,7 +5238,7 @@ function GET_WHQL_DAY(dwWHQLLevel: DWORD): Integer; inline;
 implementation
 
 (*
- * Macros for interpretting DDEVICEIDENTIFIER2.dwWHQLLevel
+ * Macros for interpreting DDEVICEIDENTIFIER2.dwWHQLLevel
  *)
 {#define GET_WHQL_YEAR( dwWHQLLevel ) \
     ( (dwWHQLLevel) / 0x10000 )

packages/ptc/src/win32/directx/p_dinput.pp

@@ -3557,7 +3557,7 @@ const
   DIBUTTON_DRIVINGC_PAUSE                 = $020044FC; { Start / Pause / Restart game }
 
 (*--- Driving Simulator - Tank
-      Combat from withing a tank is primary objective  ---*)
+      Combat from within a tank is primary objective  ---*)
   DIVIRTUAL_DRIVING_TANK                  = $03000000;
   DIAXIS_DRIVINGT_STEER                   = $03008A01; { Turn tank left / right }
   DIAXIS_DRIVINGT_BARREL                  = $03010202; { Raise / lower barrel }
@@ -4656,7 +4656,7 @@ const
 
 (*
  * Informs the joystick driver that the configuration has been changed
- * and should be reloaded from the registery.
+ * and should be reloaded from the registry.
  * dwFlags is reserved and should be set to zero
  *)
 //WINMMAPI MMRESULT WINAPI joyConfigChanged( DWORD dwFlags );

packages/ptc/src/wince/directx/ddraw.pas

@@ -43,7 +43,7 @@ uses
 
 
 // Other components use this define to tell if they have the DirectDraw
-// defintitions presents or if they have to re-define stuff.
+// definitions presents or if they have to re-define stuff.
 
 //#define __DDRAW_INCLUDED__
 
@@ -60,7 +60,7 @@ const
   IID_IDirectDrawGammaControl: TGuid = '{69C11C3E-B46B-11D1-AD7A-00C04FC29B4E}';
 
 (*
- * Forward interface declerations
+ * Forward interface declarations
  *)
 
 type
@@ -193,7 +193,7 @@ type
     dwMinOverlayStretch: DWORD;	// minimum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
     dwMaxOverlayStretch: DWORD;	// maximum overlay stretch factor multiplied by 1000, eg 1000 == 1.0, 1300 == 1.3
 
-    // Miscalenous capabilies
+    // Miscellaneous capabilities
 
     dwMiscCaps: DWORD;
 

packages/ptc/src/x11/x11dga1displayi.inc

@@ -77,7 +77,7 @@ begin
   FWidth := AWidth;
   FHeight := AHeight;
 
-  { Get all availabe video modes }
+  { Get all available video modes }
   XF86VidModeGetAllModeLines(FDisplay, FScreen, @FModeInfoNum, @FModeInfo);
 
   FPreviousMode := -1;

packages/ptc/src/x11/x11windowdisplayi.inc

@@ -567,7 +567,7 @@ begin
       { XGrabPointer may fail if someone else is already holding a mouse grab.
         It happens e.g. sometimes when alt+tabbing away and back to the application
         in GNOME. That's why we check the result and try again on the next call.
-        And that's why this method is called everytime HandleEvents is called. }
+        And that's why this method is called every time HandleEvents is called. }
       FMouseGrabbed := GrabResult = GrabSuccess;
     end;
   end

packages/qlunits/src/sms_sysvars.inc

@@ -65,7 +65,7 @@ Type
     sys_rtcf: Word;     { Real time fractional, count down [SMS] }
     sys_rand: Word;     { RANDom number }
 
-    sys_pict: Word;     { Polling Interupt CounT }
+    sys_pict: Word;     { Polling Interrupt CounT }
     sys_dtyp: Byte;     { Display TYPe (0=normal, 1=TV 625, 2=TV 525) }
     sys_dfrz: Byte;     { Display FRoZen (T or F) }
     sys_qlmr: Byte;     { QL Master chip Register value (Copy of MC_STAT) }

packages/regexpr/examples/testreg1.pp

@@ -696,7 +696,7 @@ begin
      do_error(1101);
    DestroyregExprEngine(r);
 
-   { with parenthsis }
+   { with parenthesis }
    GenerateRegExprEngine('(foo)1234',[],r);
    if not(RegExprPos(r,'1234   foo1234XXXX',index,len)) or
      (index<>7) or (len<>7) then

packages/regexpr/src/old/regexpr.pp

@@ -44,7 +44,7 @@ unit regexpr;
 
   interface
 
-    { the following declarions are only in the interface because }
+    { the following declarations are only in the interface because }
     { some procedures return pregexprentry but programs which   }
     { use this unit shouldn't access this data structures        }
     type
@@ -86,7 +86,7 @@ unit regexpr;
         cs_whitespace : tcharset = [' ',#9];
 
      var
-        { these are initilized in the init section of the unit }
+        { these are initialized in the init section of the unit }
         cs_nonwordchars : tcharset;
         cs_nondigits : tcharset;
         cs_nonwhitespace : tcharset;
@@ -430,7 +430,7 @@ unit regexpr;
                   exit;
                 end;
             Val(minOccursString,minOccurs);
-            { possible cases here: commad or end bracket }
+            { possible cases here: command or end bracket }
             if currentpos^= '}' then
               begin
                 inc(currentpos);
@@ -949,7 +949,7 @@ unit regexpr;
 
                          if counter = 0 then
                            begin
-                             { If there was no occurence and the minimum occurence is > 0 then
+                             { If there was no occurrence and the minimum occurrence is > 0 then
                                problem.
                              }
                              if (regexprentry^.minoccurs > 0) then

packages/regexpr/src/regexpr.pas

@@ -13,12 +13,12 @@ unit regexpr;
   Option 1>
 
   You may use this software in any kind of development,
-  including comercial, redistribute, and modify it freely,
+  including commercial, redistribute, and modify it freely,
   under the following restrictions :
   1. This software is provided as it is, without any kind of
   warranty given. Use it at Your own risk.The author is not
   responsible for any consequences of use of this software.
-  2. The origin of this software may not be mispresented, You
+  2. The origin of this software may not be misrepresented, You
   must not claim that You wrote the original software. If
   You use this software in any kind of product, it would be
   appreciated that there in a information box, or in the
@@ -30,8 +30,8 @@ unit regexpr;
 
   3. You may not have any income from distributing this source
   (or altered version of it) to other developers. When You
-  use this product in a comercial package, the source may
-  not be charged seperatly.
+  use this product in a commercial package, the source may
+  not be charged separately.
   4. Altered versions must be plainly marked as such, and must
   not be misrepresented as being the original software.
   5. RegExp Studio application and all the visual components as
@@ -92,7 +92,7 @@ interface
   {$UNDEF UnicodeEx}
   {$UNDEF FastUnicodeData}
 {$ENDIF}
-{.$DEFINE Compat} // Enable compatability methods/properties for forked version in Free Pascal 3.0
+{.$DEFINE Compat} // Enable compatibility methods/properties for forked version in Free Pascal 3.0
 // ======== Define Pascal-language options
 // Asserts used to catch 'strange bugs' in TRegExpr implementation (when something goes
 // completely wrong). You can swith asserts on/off with help of {$C+}/{$C-} compiler options.
@@ -672,7 +672,7 @@ type
     {$ENDIF}
 
     // Returns ATemplate with '$&' or '$0' replaced by whole r.e.
-    // occurence and '$1'...'$nn' replaced by subexpression with given index.
+    // occurrence and '$1'...'$nn' replaced by subexpression with given index.
     // Symbol '$' is used instead of '\' (for future extensions
     // and for more Perl-compatibility) and accepts more than one digit.
     // If you want to place into template raw '$' or '\', use prefix '\'.
@@ -683,7 +683,7 @@ type
     // 'a${1}2bc' -> 'a<Match[1]>2bc'.
     function Substitute(const ATemplate: RegExprString): RegExprString;
 
-    // Splits AInputStr to list by positions of all r.e. occurencies.
+    // Splits AInputStr to list by positions of all r.e. occurrences.
     // Internally calls Exec, ExecNext.
     procedure Split(const AInputStr: RegExprString; APieces: TStrings);
 
@@ -694,7 +694,7 @@ type
     function Replace(const AInputStr: RegExprString;
       AReplaceFunc: TRegExprReplaceFunction): RegExprString; overload;
     {$ENDIF}
-    // Returns AInputStr with r.e. occurencies replaced by AReplaceStr.
+    // Returns AInputStr with r.e. occurrences replaced by AReplaceStr.
     // If AUseSubstitution is true, then AReplaceStr will be used
     // as template for Substitution methods.
     // For example:
@@ -746,18 +746,18 @@ type
     // Regular expression.
     // For optimization, TRegExpr will automatically compiles it into 'P-code'
     // (You can see it with help of Dump method) and stores in internal
-    // structures. Real [re]compilation occures only when it really needed -
+    // structures. Real [re]compilation occurs only when it really needed -
     // while calling Exec, ExecNext, Substitute, Dump, etc
     // and only if Expression or other P-code affected properties was changed
     // after last [re]compilation.
-    // If any errors while [re]compilation occures, Error method is called
+    // If any errors while [re]compilation occurs, Error method is called
     // (by default Error raises exception - see below)
     property Expression: RegExprString read fExpression write SetExpression;
 
     // Set/get default values of r.e.syntax modifiers. Modifiers in
     // r.e. (?ismx-ismx) will replace this default values.
     // If you try to set unsupported modifier, Error will be called
-    // (by defaul Error raises exception ERegExpr).
+    // (by default Error raises exception ERegExpr).
     property ModifierStr: RegExprString read GetModifierStr write SetModifierStr;
 
     property ModifierI: Boolean read GetModifierI write SetModifierI;
@@ -863,14 +863,14 @@ type
   end;
 
   // true if string AInputString match regular expression ARegExpr
-  // ! will raise exeption if syntax errors in ARegExpr
+  // ! will raise exception if syntax errors in ARegExpr
 function ExecRegExpr(const ARegExpr, AInputStr: RegExprString): Boolean;
 
-// Split AInputStr into APieces by r.e. ARegExpr occurencies
+// Split AInputStr into APieces by r.e. ARegExpr occurrences
 procedure SplitRegExpr(const ARegExpr, AInputStr: RegExprString;
   APieces: TStrings);
 
-// Returns AInputStr with r.e. occurencies replaced by AReplaceStr
+// Returns AInputStr with r.e. occurrences replaced by AReplaceStr
 // If AUseSubstitution is true, then AReplaceStr will be used
 // as template for Substitution methods.
 // For example:
@@ -1454,7 +1454,7 @@ end;
 const
   MetaChars_Init = '^$.[()|?+*' + EscChar + '{';
   MetaChars = MetaChars_Init; // not needed to be a variable, const is faster
-  MetaAll = MetaChars_Init + ']}'; // Very similar to MetaChars, but slighly changed.
+  MetaAll = MetaChars_Init + ']}'; // Very similar to MetaChars, but slightly changed.
 *)
 
 function _IsMetaSymbol1(ch: REChar): Boolean; {$IFDEF InlineFuncs}inline;{$ENDIF}
@@ -1552,7 +1552,7 @@ begin
               while (i <= Len) and (ARegExpr[i] <> ')') do
                 Inc(i);
               if i > Len then
-                Result := -1 // unbalansed '('
+                Result := -1 // unbalanced '('
               else
               if ParseModifiers(@ARegExpr[i0], i - i0, Modif) then
                 // Alexey-T: original code had copy from i, not from i0
@@ -1629,7 +1629,7 @@ begin
 
     // check brackets balance
     if StackIdx <> 0 then
-      Result := -1; // unbalansed '('
+      Result := -1; // unbalanced '('
 
     // check if entire r.e. added
     if (ASubExprs.Count = 0) or ((PtrInt(ASubExprs.Objects[0]) and $FFFF) <> 1)
@@ -2443,7 +2443,7 @@ end;
 
 function IsHorzSeparator(AChar: REChar): Boolean; {$IFDEF InlineFuncs}inline;{$ENDIF}
 begin
-  // Tab and Unicode categoty "Space Separator": https://www.compart.com/en/unicode/category/Zs
+  // Tab and Unicode category "Space Separator": https://www.compart.com/en/unicode/category/Zs
   case AChar of
     #9, #$20, #$A0:
       Result := True;
@@ -6273,7 +6273,7 @@ begin
           save := regInput;
           Local.LoopInfoListPtr := CurrentLoopInfoListPtr;
           if Local.LoopInfoListPtr^.Count >= BracesMin then
-          begin // Min alredy matched - we can work
+          begin // Min already matched - we can work
             Result := (BracesMax = MaxBracesArg) and // * or +
                       (Local.LoopInfoListPtr^.CurrentRegInput = regInput);
             if Result then begin
@@ -6385,8 +6385,8 @@ begin
             // don't repeat more than BracesMax
             // Now we know real Max limit to move forward (for recursion 'back up')
             // In some cases it can be faster to check only Min positions first,
-            // but after that we have to check every position separtely instead
-            // of fast scannig in loop.
+            // but after that we have to check every position separately instead
+            // of fast scanning in loop.
             no := BracesMin;
             while no <= BracesMax do
             begin

packages/regexpr/tests/tests.pp

@@ -502,7 +502,7 @@ const
     matchStart: 0
     ),
     // 43
-    ( // valid regex set combinaton if escaping
+    ( // valid regex set combination if escaping
     expression: '\w+([.\-])\d+([\.-])\w+([\.\-])\w+';
     inputText: 'Pictures-2018.Spain-Madrid';
     substitutionText: '$1 $2 $3';

packages/rexx/readme.txt

@@ -1,7 +1,7 @@
 Hi/2.
 
 This is REXX SAA interface. Nothing specific for this library. Only one thing:
-This interface can be easely adapted to be used also for other OSes, not only
+This interface can be easily adapted to be used also for other OSes, not only
 for OS/2. Look at Regina REXX for more info. As I know, early Regina REXX was
 distributed with Win32 SDK.
 

packages/rexx/src/rexxsaa.pp

@@ -25,7 +25,7 @@
 @created(01 Feb 2003)
 @lastmod(13 Feb 2003)
 REXX SAA Interface
-Warning: This code is alfa. Future versions of this unit will propably
+Warning: This code is alfa. Future versions of this unit will probably
 not be compatible.
 }
 (*********************************************************************
@@ -98,7 +98,7 @@ Procedure MAKERXSTRING(VAR r:RXSTRING;p:PAnsiChar;l:LONGINT);
 //Call type codes for use on interpreter startup
 Const
   RxCommand=0;              // Program called as Command
-  RxSubroutine=1;           // Program called as Subroutin
+  RxSubroutine=1;           // Program called as Subroutine
   RxFunction=2;             // Program called as Function
 
 // Subcommand Interface defines
@@ -117,7 +117,7 @@ Const
   RXSUBCOM_ERROR     = $01;    // Subcommand Ended in Error
   RXSUBCOM_FAILURE   = $02;    // Subcommand Ended in Failure
   RXSUBCOM_BADENTRY  = 1001;    // Invalid Entry Conditions
-  RXSUBCOM_NOEMEM    = 1002;    // Insuff stor to complete req
+  RXSUBCOM_NOEMEM    = 1002;    // Insufficient stor to complete req
   RXSUBCOM_BADTYPE   = 1003;    // Bad registration type.
   RXSUBCOM_NOTINIT   = 1004;    // API system not initialized.
   RXSUBCOM_OK        =  0;      // Function Complete
@@ -210,7 +210,7 @@ Const
   RXEXIT_ERROR       =  $01;    // Exit Ended in Error
   RXEXIT_FAILURE     =  $02;    // Exit Ended in Failure
   RXEXIT_BADENTRY    = 1001;    // Invalid Entry Conditions
-  RXEXIT_NOEMEM      = 1002;    // Insuff stor to complete req
+  RXEXIT_NOEMEM      = 1002;    // Insufficient stor to complete req
   RXEXIT_BADTYPE     = 1003;    // Bad registration type.
   RXEXIT_NOTINIT     = 1004;    // API system not initialized.
   RXEXIT_OK          =  0;      // Function Complete
@@ -296,7 +296,7 @@ Function RexxStart(ArgC: Longint;      // Num of args passed to rexx
          Filename: PAnsiChar;              // [d:][path] filename[.ext]
          Proc: PRXSTRING;              // Loc of rexx proc in memory
          Env: PAnsiChar;                   // ASCIIZ initial environment.
-         rType: Longint;               // type (command,subrtn,funct)
+         rType: Longint;               // type (command,subroutine,funct)
          Exit_: PRXSYSEXIT;             // SysExit env. names &  codes
          Ret: PInteger;                   // Ret code from if numeric
          RetVal: PRXSTRING): Longint; cdecl;  // Retvalue from the rexx proc
@@ -306,7 +306,7 @@ Function RexxStart(ArgC: Longint;      // Num of args passed to rexx
          Filename: PAnsiChar;              // [d:][path] filename[.ext]
          Proc: PRXSTRING;              // Loc of rexx proc in memory
          Env: PAnsiChar;                   // ASCIIZ initial environment.
-         rType: Longint;               // type (command,subrtn,funct)
+         rType: Longint;               // type (command,subroutine,funct)
          Exit_: PRXSYSEXIT;             // SysExit env. names &  codes
      var Ret: Integer;                    // Ret code from if numeric
      var RetVal: RXSTRING): Longint; cdecl;  // Retvalue from the rexx proc
@@ -335,18 +335,18 @@ Function RexxRegisterSubcomExe(
          HandlerAddr: PFn;              // address of handler in EXE
          UserArea:    PWord): Cardinal; cdecl; // User area
 
-// RexxQuerySubcom - Query an environment for Existance
+// RexxQuerySubcom - Query an environment for Existence
 
 Function RexxQuerySubcom(
          EnvName: PAnsiChar;                // Name of the Environment
          DllName: PAnsiChar;                // DLL Module Name
-         ExCode:  PWord;                // Stor for existance code
+         ExCode:  PWord;                // Stor for existence code
          User:    PWord): Cardinal; cdecl;       // Stor for user word
 
 Function RexxQuerySubcom(
          EnvName: PAnsiChar;                // Name of the Environment
          DllName: PAnsiChar;                // DLL Module Name
-     var ExCode:  Word;                 // Stor for existance code
+     var ExCode:  Word;                 // Stor for existence code
      var User:    Word): Cardinal; cdecl;        // Stor for user word
 
 // RexxDeregisterSubcom - Drop registration of a Subcommand
@@ -545,30 +545,30 @@ Function RexxDeregisterExit(
          ExitName: PAnsiChar;                   // Exit name
          DllName:  PAnsiChar): Cardinal; cdecl; // DLL module name
 
-// RexxQueryExit - Query an exit for existance.
+// RexxQueryExit - Query an exit for existence.
 
 Function RexxQueryExit(
          ExitName: PAnsiChar;               // Exit name
          DllName:  PAnsiChar;               // DLL Module name.
-     var ExFlag:   Word;                // Existance flag.
+     var ExFlag:   Word;                // Existence flag.
          UserArea: Pointer): Cardinal; cdecl;    // User data.
 
 Function RexxQueryExit(
          ExitName: PAnsiChar;                   // Exit name
          DllName:  PAnsiChar;                   // DLL Module name.
-     var ExFlag:   Word;                    // Existance flag.
+     var ExFlag:   Word;                    // Existence flag.
          UserArea: PByte): Cardinal; cdecl; // User data.
 
 Function RexxQueryExit(
          ExitName: PAnsiChar;                   // Exit name
          DllName:  PAnsiChar;                   // DLL Module name.
-         ExFlag:   PWord;                   // Existance flag.
+         ExFlag:   PWord;                   // Existence flag.
          UserArea: PByte): Cardinal; cdecl; // User data.
 
 Function RexxQueryExit(
          ExitName: PAnsiChar;                   // Exit name
          DllName:  PAnsiChar;                   // DLL Module name.
-         ExFlag:   PWord;                   // Existance flag.
+         ExFlag:   PWord;                   // Existence flag.
          UserArea: Pointer): Cardinal; cdecl; // User data.
 
 // Asynchronous Request Interface
@@ -638,7 +638,7 @@ Function RexxClearMacroSpace: Cardinal; cdecl; // No Arguments.
 (* Not supported yet!!
 /* REGINA EXTENSIONS *********************************************************/
 /* The following function is an extension to the standard. Never try to
- * address the function directly. Use the dynamic linking machanism of
+ * address the function directly. Use the dynamic linking mechanism of
  * your operating system instead. This function was introduced in version
  * 2.0.
  * Returns: ULONG, in lower byte the two-digit fraction part of the version.
@@ -669,7 +669,7 @@ Function RexxStart(ArgC: Longint;      // Num of args passed to rexx
          Filename: PAnsiChar;              // [d:][path] filename[.ext]
          Proc: PRXSTRING;              // Loc of rexx proc in memory
          Env: PAnsiChar;                   // ASCIIZ initial environment.
-         rType: Longint;               // type (command,subrtn,funct)
+         rType: Longint;               // type (command,subroutine,funct)
          Exit_: PRXSYSEXIT;            // SysExit env. names &  codes
          Ret: PInteger;                // Ret code from if numeric
          RetVal: PRXSTRING): Longint; cdecl;  // Retvalue from the rexx proc
@@ -680,7 +680,7 @@ Function RexxStart(ArgC: Longint;      // Num of args passed to rexx
          Filename: PAnsiChar;              // [d:][path] filename[.ext]
          Proc: PRXSTRING;              // Loc of rexx proc in memory
          Env: PAnsiChar;                   // ASCIIZ initial environment.
-         rType: Longint;               // type (command,subrtn,funct)
+         rType: Longint;               // type (command,subroutine,funct)
          Exit_: PRXSYSEXIT;            // SysExit env. names &  codes
      var Ret: integer;                 // Ret code from if numeric
      var RetVal: RXSTRING): Longint; cdecl;  // Retvalue from the rexx proc
@@ -703,14 +703,14 @@ Function RexxRegisterSubcomExe(
 Function RexxQuerySubcom(
          EnvName: PAnsiChar;                // Name of the Environment
          DllName: PAnsiChar;                // DLL Module Name
-         ExCode:  PWord;                // Stor for existance code
+         ExCode:  PWord;                // Stor for existence code
          User:    PWord): Cardinal; cdecl;       // Stor for user word
     external REXXAPI name 'RexxQuerySubcom';
 
 Function RexxQuerySubcom(
          EnvName: PAnsiChar;                // Name of the Environment
          DllName: PAnsiChar;                // DLL Module Name
-     var ExCode:  Word;                 // Stor for existance code
+     var ExCode:  Word;                 // Stor for existence code
      var User:    Word): Cardinal; cdecl;        // Stor for user word
     external REXXAPI name 'RexxQuerySubcom';
 
@@ -763,28 +763,28 @@ Function RexxDeregisterExit(
 Function RexxQueryExit(
          ExitName: PAnsiChar;               // Exit name
          DllName:  PAnsiChar;               // DLL Module name.
-     var ExFlag:   Word;                // Existance flag.
+     var ExFlag:   Word;                // Existence flag.
          UserArea: Pointer): Cardinal; cdecl;    // User data.
     external REXXAPI name 'RexxQueryExit';
 
 Function RexxQueryExit(
          ExitName: PAnsiChar;                   // Exit name
          DllName:  PAnsiChar;                   // DLL Module name.
-     var ExFlag:   Word;                    // Existance flag.
+     var ExFlag:   Word;                    // Existence flag.
          UserArea: PByte): Cardinal; cdecl; // User data.
     external REXXAPI name 'RexxQueryExit';
 
 Function RexxQueryExit(
          ExitName: PAnsiChar;                   // Exit name
          DllName:  PAnsiChar;                   // DLL Module name.
-         ExFlag:   PWord;                   // Existance flag.
+         ExFlag:   PWord;                   // Existence flag.
          UserArea: PByte): Cardinal; cdecl; // User data.
     external REXXAPI name 'RexxQueryExit';
 
 Function RexxQueryExit(
          ExitName: PAnsiChar;                   // Exit name
          DllName:  PAnsiChar;                   // DLL Module name.
-         ExFlag:   PWord;                   // Existance flag.
+         ExFlag:   PWord;                   // Existence flag.
          UserArea: Pointer): Cardinal; cdecl; // User data.
     external REXXAPI name 'RexxQueryExit';
 

packages/rtl-console/fpmake.pp

@@ -8,7 +8,7 @@ uses {$ifdef unix}cthreads,{$endif} fpmkunit;
 procedure add_rtl_console(const ADirectory: string);
 
 Const
-  // All Unices have full set of KVM+Crt in unix/ except QNX which is not
+  // All Unixes have full set of KVM+Crt in unix/ except QNX which is not
   // in workable state atm.
   UnixLikes = AllUnixOSes -[QNX];
 

packages/rtl-console/src/emx/crt.pp

@@ -44,7 +44,7 @@ type    Tkbdkeyinfo=record
             time:longint;
         end;
 
-        {if you have information on the folowing datastructure, please
+        {if you have information on the following datastructure, please
          send them to me at [email protected]}
 
         {This datastructure is needed when we ask in what video mode we are,
@@ -168,7 +168,7 @@ begin
                 mov $0x30,%bl
                 int $0x10
             end;
-            {132 column mode in DOS is videocard dependend.}
+            {132 column mode in DOS is videocard dependent.}
             if mode and 15=2 then
                 begin
                     crt_error:=cemodeset;

packages/rtl-console/src/go32v2/mouse.pp

@@ -70,7 +70,7 @@ const
     cursor. Normally, when the mouse cursor is drawn by the int 33h mouse
     driver (and not by this unit), the driver internally maintains a 'hide
     counter', so that if you call HideMouse multiple times, you need to call
-    ShowMouse the same number of times. When the mouse cursor is customly
+    ShowMouse the same number of times. When the mouse cursor is customarily
     drawn by this unit, we use this variable in order to maintain the same
     behaviour. }
   CustomMouse_HideCount: longint = 1;

packages/rtl-console/src/go32v2/video.pp

@@ -47,7 +47,7 @@ uses
 const
   LastCursorType : word = crUnderline;
 
-{ allways set blink state again }
+{ always set blink state again }
 
 procedure SetHighBitBlink;
 var

packages/rtl-console/src/inc/crt.inc

@@ -369,7 +369,7 @@ end;
 
 {$IFNDEF HAS_SOUND}
 procedure Sound (Hz: word);
-(* Dummy Sound implementation - for platforms requiring both frequence
+(* Dummy Sound implementation - for platforms requiring both frequency
    and duration at the beginning instead of start and stop procedures. *)
 begin
 end;
@@ -378,7 +378,7 @@ end;
 
 {$IFNDEF HAS_NOSOUND}
 procedure NoSound;
-(* Dummy NoSound implementation - for platforms requiring both frequence
+(* Dummy NoSound implementation - for platforms requiring both frequency
    and duration at the beginning instead of start and stop procedures.   *)
 begin
 end;

packages/rtl-console/src/inc/keybrdh.inc

@@ -52,7 +52,7 @@ type
   out which one was pressed (Gray+ and Simple+). If you need to know which
   was pressed, you'll need to use the untranslated keycodes, which is system
   dependent. System dependent constants may be defined to cover those, with
-  possibily having the same name (but different value). }
+  possibly having the same name (but different value). }
 
   TEnhancedShiftStateElement = (
     essShift,             { either Left or Right Shift is pressed }

packages/rtl-console/src/msdos/mouse.pp

@@ -51,7 +51,7 @@ const
     cursor. Normally, when the mouse cursor is drawn by the int 33h mouse
     driver (and not by this unit), the driver internally maintains a 'hide
     counter', so that if you call HideMouse multiple times, you need to call
-    ShowMouse the same number of times. When the mouse cursor is customly
+    ShowMouse the same number of times. When the mouse cursor is customarily
     drawn by this unit, we use this variable in order to maintain the same
     behaviour. }
   CustomMouse_HideCount: smallint = 1;

packages/rtl-console/src/msdos/video.pp

@@ -45,7 +45,7 @@ uses
 const
   LastCursorType : word = crUnderline;
 
-{ allways set blink state again }
+{ always set blink state again }
 
 procedure SetHighBitBlink;
 var

packages/rtl-console/src/netware/crt.pp

@@ -236,7 +236,7 @@ begin
   fil:=32 or (textattr shl 8);
   if FullWin then
   begin
-    _clrscr;  {seems to swich cursor off}
+    _clrscr;  {seems to switch cursor off}
     _DisplayInputCursor;
   end else
    begin

packages/rtl-console/src/netwlibc/crt.pp

@@ -226,7 +226,7 @@ var
 begin
   if FullWin then
   begin
-    clearscreen;  {seems to swich cursor off}
+    clearscreen;  {seems to switch cursor off}
     //_DisplayInputCursor;
   end else
   begin

packages/rtl-console/src/os2/crt.pp

@@ -131,7 +131,7 @@ external 'DOSCALLS' index 286;
 
 
 procedure GetScreenCursor (var X, Y: dword);inline;
-(* Return current cursor postion - 0-based. *)
+(* Return current cursor position - 0-based. *)
 var
  X0, Y0: word;
 begin
@@ -146,7 +146,7 @@ end;
 
 
 procedure SetScreenCursor (X, Y: dword); inline;
-(* Set current cursor postion - 0-based. *)
+(* Set current cursor position - 0-based. *)
 begin
  VioSetCurPos (Y, X, VioHandle);
 end;

packages/rtl-console/src/os2commn/video.pp

@@ -476,7 +476,7 @@ begin
     rType := 2;
     end;
   VioGetState (OrigHighBit, 0);
-  { Register the curent video mode in reserved slot in System Modes}
+  { Register the current video mode in reserved slot in System Modes}
   with OrigVioMode do
     begin
     {Assume we have at least 16 colours available in "colour" modes}

packages/rtl-console/src/unix/crt.pp

@@ -381,7 +381,7 @@ end;
 procedure ttyGotoXY(x,y:longint);
 {
   Goto XY on the Screen, if a value is 0 the goto the current
-  postion of that value and always recalc the ansicode for it
+  position of that value and always recalc the ansicode for it
 }
 begin
   if x=0 then
@@ -680,7 +680,7 @@ Begin
    end
   else
    begin
-   { Tweak WindMaxx and WindMaxy so no scrolling happends }
+   { Tweak WindMaxx and WindMaxy so no scrolling happens }
      len:=WindMaxX-CurrX+1;
      IsLastLine:=false;
      if CurrY=WindMaxY then

packages/rtl-console/src/unix/keyboard.pp

@@ -228,7 +228,7 @@ const
   kbdchange:array[0..35] of chgentry=(
     {This prevents the alt+function keys from switching consoles.
      We code the F1..F12 sequences into ALT+F1..ALT+F12, we check
-     the shiftstates separetely anyway.}
+     the shiftstates separately anyway.}
     (tab:8; idx:$3b; oldtab:0; oldidx:$3b; oldval:0; newval:0),
     (tab:8; idx:$3c; oldtab:0; oldidx:$3c; oldval:0; newval:0),
     (tab:8; idx:$3d; oldtab:0; oldidx:$3d; oldval:0; newval:0),
@@ -549,7 +549,7 @@ const
   begin
     MouseEvent.action := MouseActionUp;
     MouseEvent.buttons := 0;
-    { fake event is to decive LastMouseEvent
+    { fake event is to deceive LastMouseEvent
     PutMouseEvent(MouseEvent); do not make real event }
   end;
 
@@ -983,7 +983,7 @@ begin
   if St='' then
     exit;
   p:=1;
-  {This is a distusting hack for certain even more disgusting xterms: Some of
+  {This is a distrusting hack for certain even more disgusting xterms: Some of
    them send two escapes for an alt-key. If we wouldn't do this, we would need
    to put a lot of entries twice in the table.}
   if double_esc_hack_enabled and (st[1]=#27) and (st[2]='#27') and
@@ -2010,7 +2010,7 @@ const  cKeysUnicodePrivateBase = 57344; { unicode private area starts here}
       kDel = 82;
       kMiddle = 83;
 
-      {modifyers}
+      {modifiers}
       kShiftLeft = 97;
       kCtrlLeft = 98;
       kAltLeft = 99;
@@ -2170,7 +2170,7 @@ begin
     if essRightShift in LastShiftState then
       inc(state,kbRightShift);
     if (essShift in LastShiftState) and (not ((essRightShift in LastShiftState) or (essLeftShift in LastShiftState))) then
-      inc(state,kbShift); {this for super rare case when shift state key press was not recived (maybe that is impossible)}
+      inc(state,kbShift); {this for super rare case when shift state key press was not received (maybe that is impossible)}
   end else
   if essShift in LastShiftState then
     inc(state,kbShift);
@@ -2732,7 +2732,7 @@ begin
           store[arrayind]:=ch;
           inc(arrayind);
           if arrayind >= 31 then break;
-          {check tree for maching sequence}
+          {check tree for matching sequence}
           if assigned(NPT) then
             NNPT:=FindChild(ord(ch),NPT);
           if assigned(NNPT) then
@@ -2747,7 +2747,7 @@ begin
             End
           else
             NPT:=nil;  {not found and not looking for anymore, but don't let hope fade... read sequence till the end}
-          {check sequnce end conditions}
+          {check sequence end conditions}
           if (arrayind>2) and  (ch < #32) then
           begin
             {if two short escape sequences are back to back}
@@ -2767,7 +2767,7 @@ begin
         end else
         if (arrayind>3) then
           if (ch = 'u'  )   { for sure kitty keys  or }
-              or ( isKittyKeys and  not assigned(FoundNPT) ) {probally kitty keys}
+              or ( isKittyKeys and  not assigned(FoundNPT) ) {probably kitty keys}
               then
             begin
               if not (assigned(FoundNPT) and  assigned(FoundNPT^.SpecialHandler)) then
@@ -2896,7 +2896,7 @@ begin
   timewait.tv_nsec := 100000000; {few nano seconds to wait}
   ree:=fpNanoSleep(@timewait,@finalparsec);
   st:='';
-  if syskeypressed then st:=RawReadString; {empty key buffer (key realeas might be pending)}
+  if syskeypressed then st:=RawReadString; {empty key buffer (key release might be pending)}
 end;
 
 { Exported functions }
@@ -3014,7 +3014,7 @@ function SysGetEnhancedKeyEvent: TEnhancedKeyEvent;
       $19, $10, $13, $1F, $14, $16, $2F, $11,
       $2D, $15, $2C, $1A, $2B, $1B, $29, $0C);
   begin
-    if (b and $E0)=$20  { digits / leters } then
+    if (b and $E0)=$20  { digits / letters } then
      EvalScan:=DScan[b and $1F]
     else
      case b of

packages/rtl-console/src/unix/mouse.pp

@@ -430,7 +430,7 @@ begin
 {$ifndef NOGPM}
   if PollMouseEvent(ME) then
    begin
-     { Remove mouse event, we are only interrested in
+     { Remove mouse event, we are only interested in
        the X,Y so all other events can be thrown away }
      GetMouseEvent(ME);
      SysGetMouseX:=ME.X
@@ -454,7 +454,7 @@ begin
 {$ifndef NOGPM}
   if PollMouseEvent(ME) then
    begin
-     { Remove mouse event, we are only interrested in
+     { Remove mouse event, we are only interested in
        the X,Y so all other events can be thrown away }
      GetMouseEvent(ME);
      SysGetMouseY:=ME.Y
@@ -510,7 +510,7 @@ begin
 {$ifndef NOGPM}
   if PollMouseEvent(ME) then
    begin
-     { Remove mouse event, we are only interrested in
+     { Remove mouse event, we are only interested in
        the buttons so all other events can be thrown away }
      GetMouseEvent(ME);
      SysGetMouseButtons:=ME.Buttons;

packages/rtl-console/src/unix/video.pp

@@ -1335,7 +1335,7 @@ begin
 
      envInput := LowerCase(fpgetenv('TV_INPUT'));
      if (envInput = '') or (envInput = 'kitty') then
-       SendEscapeSeq(#27'[>31u');{Entering alternativ screen we have to set up kitty keys}
+       SendEscapeSeq(#27'[>31u');{Entering alternative screen we have to set up kitty keys}
    end
   else
    ErrorCode:=errVioInit; { not a TTY }

packages/rtl-console/src/win/crt.pp

@@ -731,7 +731,7 @@ begin
       if CurrX > WindMinX then Dec(CurrX);
     end; { ^H }
     #07 : begin
-      //MessagBeep(0);
+      //MessageBeep(0);
     end; { ^G }
     else begin
       WritePos.X := currX - 1;

packages/rtl-console/src/win/keyboard.pp

@@ -66,7 +66,7 @@ type
 var
    keyboardeventqueue : array[0..maxqueuesize] of TFPKeyEventRecord;
    nextkeyevent,nextfreekeyevent : longint;
-   newKeyEvent    : THandle;            {sinaled if key is available}
+   newKeyEvent    : THandle;            {signaled if key is available}
    lockVar        : TCriticalSection;   {for queue access}
    lastShiftState : byte;               {set by handler for PollShiftStateEvent}
    altNumActive   : boolean;            {for alt+0..9}
@@ -408,7 +408,7 @@ end;
 
 {$define USEKEYCODES}
 
-{Translatetable Win32 -> Dos for Special Keys = Function Key, Cursor Keys
+{Translatable Win32 -> Dos for Special Keys = Function Key, Cursor Keys
  and Keys other than numbers on numblock (to make fv happy) }
 {combinations under dos: Shift+Ctrl: same as Ctrl
                          Shift+Alt : same as alt
@@ -813,7 +813,7 @@ begin
   Key := NilEnhancedKeyEvent;
   if t.ev.bKeyDown then
   begin
-    { unicode-AnsiChar is <> 0 if not a specal key }
+    { unicode-AnsiChar is <> 0 if not a special key }
     { we return it here otherwise we have to translate more later }
     if t.ev.UnicodeChar <> WideChar(0) then
     begin

packages/rtl-console/src/win/video.pp

@@ -494,7 +494,7 @@ begin
       OrigScreenSize := max(dwMaximumWindowSize.X,dwSize.X) * max(dwMaximumWindowSize.Y,dwSize.Y) * SizeOf (Char_Info);
       if OrigScreenSize > 0 then
        begin
-      { Register the curent video mode in reserved slot in System Modes}
+      { Register the current video mode in reserved slot in System Modes}
         SysVMD[SysVideoModeCount-1].Col:=dwMaximumWindowSize.X;
         SysVMD[SysVideoModeCount-1].Row:=dwMaximumWindowSize.Y;
         SysVMD[SysVideoModeCount-1].Color:=true;

packages/rtl-console/src/win/winevent.pp

@@ -73,7 +73,7 @@ interface
        EventThreadHandle : Handle;
        EventThreadID : DWord;
 
-       { true, if the event handler should be stoped }
+       { true, if the event handler should be stopped }
        ExitEventHandleThread : boolean;
 
     Function GetMouseEventHandler : TEventProcedure;

packages/rtl-extra/fpmake.pp

@@ -8,7 +8,7 @@ uses {$ifdef unix}cthreads,{$endif} fpmkunit;
 procedure add_rtl_extra(const ADirectory: string);
 
 Const
-  // All Unices have full set of KVM+Crt in unix/ except QNX which is not
+  // All Unixes have full set of KVM+Crt in unix/ except QNX which is not
   // in workable state atm.
   UnixLikes = AllUnixOSes -[QNX]; // qnx never was active in 2.x afaik
 

packages/rtl-extra/src/aix/osdefs.inc

@@ -1,7 +1,7 @@
 {
     Copyright (c) 2000-2002 by Marco van de Voort
 
-    Target dependent defines used when compileing the baseunix unit
+    Target dependent defines used when compiling the baseunix unit
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by

packages/rtl-extra/src/amiga/sockets.pp

@@ -33,7 +33,7 @@ uses
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-    size_t   = cuint32;         { as definied in the C standard}
+    size_t   = cuint32;         { as defined in the C standard}
     ssize_t  = cint32;          { used by function for returning number of bytes}
 
     socklen_t= cuint32;
@@ -145,7 +145,7 @@ const
   EsockENOBUFS          = 55; //ESysENoBufs;
   EsockENOTCONN         = 57; //ESysENotConn;
   EsockEPROTONOSUPPORT  = 43; //ESysEProtoNoSupport;
-  EsockEWOULDBLOCK      = 35; //ESysEWouldBlock; // same as eagain on morphos
+  EsockEWOULDBLOCK      = 35; //ESysEWouldBlock; // same as again on morphos
   ESockEALREADY         = 37;
   EsockEINPROGRESS      = 36;
   EsockECONNREFUSED     = 61;

packages/rtl-extra/src/android/osdefs.inc

@@ -1,7 +1,7 @@
 {
     Copyright (c) 2000-2002 by Marco van de Voort
 
-    Target dependent defines used when compileing the baseunix unit
+    Target dependent defines used when compiling the baseunix unit
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by

packages/rtl-extra/src/aros/sockets.pp

@@ -28,7 +28,7 @@ uses
 {$ENDIF FPC_DOTTEDUNITS}
 
 type
-    size_t   = cuint32;         { as definied in the C standard}
+    size_t   = cuint32;         { as defined in the C standard}
     ssize_t  = cint32;          { used by function for returning number of bytes}
 
     socklen_t= cuint32;
@@ -140,7 +140,7 @@ const
   EsockENOBUFS          = 55; //ESysENoBufs;
   EsockENOTCONN         = 57; //ESysENotConn;
   EsockEPROTONOSUPPORT  = 43; //ESysEProtoNoSupport;
-  EsockEWOULDBLOCK      = 35; //ESysEWouldBlock; // same as eagain on morphos
+  EsockEWOULDBLOCK      = 35; //ESysEWouldBlock; // same as again on morphos
   ESockEALREADY         = 37;
   EsockEINPROGRESS      = 36;
   EsockECONNREFUSED     = 61;

packages/rtl-extra/src/beos/osdefs.inc

@@ -1,7 +1,7 @@
 {
     Copyright (c) 2000-2002 by Marco van de Voort
 
-    Target dependent defines used when compileing the baseunix unit
+    Target dependent defines used when compiling the baseunix unit
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by

packages/rtl-extra/src/beos/unxsockh.inc

@@ -241,7 +241,7 @@ Const
 	IPPROTO_IGRP		= 88; 		{ Cisco/GXS IGRP }
 	IPPROTO_OSPFIGP		= 89; 		{ OSPFIGP }
 	IPPROTO_SRPC		= 90; 		{ Strite RPC protocol }
-	IPPROTO_LARP		= 91; 		{ Locus Address Resoloution }
+	IPPROTO_LARP		= 91; 		{ Locus Address Resolution }
 	IPPROTO_MTP		= 92; 		{ Multicast Transport }
 	IPPROTO_AX25		= 93; 		{ AX.25 Frames }
 	IPPROTO_IPEIP		= 94; 		{ IP encapsulated in IP }
@@ -269,7 +269,7 @@ Const
  }
 	IP_OPTIONS		= 1 ;   { buf/ip_opts; set/get IP options }
 	IP_HDRINCL		= 2 ;   { int; header is included with data }
-	IP_TOS			= 3 ;   { int; IP type of service and preced. }
+	IP_TOS			= 3 ;   { int; IP type of service and precede. }
 	IP_TTL			= 4 ;   { int; IP time to live }
 	IP_RECVOPTS		= 5 ;   { bool; receive all IP opts w/dgram }
 	IP_RECVRETOPTS		= 6 ;   { bool; receive IP opts for response }
@@ -286,7 +286,7 @@ Const
 	IP_RSVP_OFF		= 16;   { disable RSVP in kernel }
 	IP_RSVP_VIF_ON		= 17;   { set RSVP per-vif socket }
 	IP_RSVP_VIF_OFF		= 18;   { unset RSVP per-vif socket }
-	IP_PORTRANGE		= 19;   { int; range to choose for unspec port }
+	IP_PORTRANGE		= 19;   { int; range to choose for unspecified port }
 	IP_RECVIF		= 20;   { bool; receive reception if w/dgram }
 
 { for IPSEC }
@@ -322,7 +322,7 @@ Const
 	IPV6_MULTICAST_LOOP	= 11; { u_int; setget IP6 multicast loopback }
 	IPV6_JOIN_GROUP		= 12; { ip6_mreq; join a group membership }
 	IPV6_LEAVE_GROUP	= 13; { ip6_mreq; leave a group membership }
-	IPV6_PORTRANGE		= 14; { int; range to choose for unspec port }
+	IPV6_PORTRANGE		= 14; { int; range to choose for unspecified port }
 
 	IPV6_PKTINFO            = 46; { in6_pktinfo; send if, src addr }	
  	IPV6_HOPLIMIT           = 47; { int; send hop limit }

packages/rtl-extra/src/bsd/osdefs.inc

@@ -1,7 +1,7 @@
 {
     Copyright (c) 2000-2002 by Marco van de Voort
 
-    Target dependent defines used when compileing the baseunix unit
+    Target dependent defines used when compiling the baseunix unit
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by

packages/rtl-extra/src/darwin/unxsockh.inc

@@ -243,7 +243,7 @@ Const
       	IPPROTO_IGRP		= 88;		{ Cisco/GXS IGRP }
       	IPPROTO_OSPFIGP		= 89;		{ OSPFIGP }
       	IPPROTO_SRPC		= 90;		{ Strite RPC protocol }
-      	IPPROTO_LARP		= 91;		{ Locus Address Resoloution }
+      	IPPROTO_LARP		= 91;		{ Locus Address Resolution }
       	IPPROTO_MTP		= 92;		{ Multicast Transport }
       	IPPROTO_AX25		= 93;		{ AX.25 Frames }
       	IPPROTO_IPEIP		= 94;		{ IP encapsulated in IP }
@@ -278,7 +278,7 @@ Const
         IPV6_MULTICAST_LOOP	=11; { __uint8_t; set/get IP6 mcast loopback }
         IPV6_JOIN_GROUP		=12; { ip6_mreq; join a group membership }
         IPV6_LEAVE_GROUP	=13; { ip6_mreq; leave a group membership }
-        IPV6_PORTRANGE		=14; { int; range to choose for unspec port }
+        IPV6_PORTRANGE		=14; { int; range to choose for unspecified port }
         ICMP6_FILTER		=18; { icmp6_filter; icmp6 filter }
         IPV6_PKTINFO		=19; { bool; send/recv if, src/dst addr }
         IPV6_HOPLIMIT		=20; { bool; hop limit }
@@ -293,7 +293,7 @@ Const
         IPV6_IPSEC_POLICY	=28; { struct; get/set security policy }
       	IP_OPTIONS		=  1;    { buf/ip_opts; set/get IP options }
       	IP_HDRINCL		=  2;    { int; header is included with data }
-      	IP_TOS			=  3;    { int; IP type of service and preced. }
+      	IP_TOS			=  3;    { int; IP type of service and precede. }
       	IP_TTL			=  4;    { int; IP time to live }
       	IP_RECVOPTS		=  5;    { bool; receive all IP opts w/dgram }
       	IP_RECVRETOPTS		=  6;    { bool; receive IP opts for response }

packages/rtl-extra/src/dragonfly/unxsockh.inc

@@ -241,7 +241,7 @@ Const
 	IPPROTO_IGRP		= 88; 		{ Cisco/GXS IGRP }
 	IPPROTO_OSPFIGP		= 89; 		{ OSPFIGP }
 	IPPROTO_SRPC		= 90; 		{ Strite RPC protocol }
-	IPPROTO_LARP		= 91; 		{ Locus Address Resoloution }
+	IPPROTO_LARP		= 91; 		{ Locus Address Resolution }
 	IPPROTO_MTP		= 92; 		{ Multicast Transport }
 	IPPROTO_AX25		= 93; 		{ AX.25 Frames }
 	IPPROTO_IPEIP		= 94; 		{ IP encapsulated in IP }
@@ -269,7 +269,7 @@ Const
  }
 	IP_OPTIONS		= 1 ;   { buf/ip_opts; set/get IP options }
 	IP_HDRINCL		= 2 ;   { int; header is included with data }
-	IP_TOS			= 3 ;   { int; IP type of service and preced. }
+	IP_TOS			= 3 ;   { int; IP type of service and precede. }
 	IP_TTL			= 4 ;   { int; IP time to live }
 	IP_RECVOPTS		= 5 ;   { bool; receive all IP opts w/dgram }
 	IP_RECVRETOPTS		= 6 ;   { bool; receive IP opts for response }
@@ -286,7 +286,7 @@ Const
 	IP_RSVP_OFF		= 16;   { disable RSVP in kernel }
 	IP_RSVP_VIF_ON		= 17;   { set RSVP per-vif socket }
 	IP_RSVP_VIF_OFF		= 18;   { unset RSVP per-vif socket }
-	IP_PORTRANGE		= 19;   { int; range to choose for unspec port }
+	IP_PORTRANGE		= 19;   { int; range to choose for unspecified port }
 	IP_RECVIF		= 20;   { bool; receive reception if w/dgram }
 
 { for IPSEC }
@@ -322,7 +322,7 @@ Const
 	IPV6_MULTICAST_LOOP	= 11; { u_int; setget IP6 multicast loopback }
 	IPV6_JOIN_GROUP		= 12; { ip6_mreq; join a group membership }
 	IPV6_LEAVE_GROUP	= 13; { ip6_mreq; leave a group membership }
-	IPV6_PORTRANGE		= 14; { int; range to choose for unspec port }
+	IPV6_PORTRANGE		= 14; { int; range to choose for unspecified port }
 
 	IPV6_PKTINFO            = 46; { in6_pktinfo; send if, src addr }	
  	IPV6_HOPLIMIT           = 47; { int; send hop limit }

packages/rtl-extra/src/freebsd/unxsockh.inc

@@ -241,7 +241,7 @@ Const
 	IPPROTO_IGRP		= 88; 		{ Cisco/GXS IGRP }
 	IPPROTO_OSPFIGP		= 89; 		{ OSPFIGP }
 	IPPROTO_SRPC		= 90; 		{ Strite RPC protocol }
-	IPPROTO_LARP		= 91; 		{ Locus Address Resoloution }
+	IPPROTO_LARP		= 91; 		{ Locus Address Resolution }
 	IPPROTO_MTP		= 92; 		{ Multicast Transport }
 	IPPROTO_AX25		= 93; 		{ AX.25 Frames }
 	IPPROTO_IPEIP		= 94; 		{ IP encapsulated in IP }
@@ -269,7 +269,7 @@ Const
  }
 	IP_OPTIONS		= 1 ;   { buf/ip_opts; set/get IP options }
 	IP_HDRINCL		= 2 ;   { int; header is included with data }
-	IP_TOS			= 3 ;   { int; IP type of service and preced. }
+	IP_TOS			= 3 ;   { int; IP type of service and precede. }
 	IP_TTL			= 4 ;   { int; IP time to live }
 	IP_RECVOPTS		= 5 ;   { bool; receive all IP opts w/dgram }
 	IP_RECVRETOPTS		= 6 ;   { bool; receive IP opts for response }
@@ -286,7 +286,7 @@ Const
 	IP_RSVP_OFF		= 16;   { disable RSVP in kernel }
 	IP_RSVP_VIF_ON		= 17;   { set RSVP per-vif socket }
 	IP_RSVP_VIF_OFF		= 18;   { unset RSVP per-vif socket }
-	IP_PORTRANGE		= 19;   { int; range to choose for unspec port }
+	IP_PORTRANGE		= 19;   { int; range to choose for unspecified port }
 	IP_RECVIF		= 20;   { bool; receive reception if w/dgram }
 
 { for IPSEC }
@@ -322,7 +322,7 @@ Const
 	IPV6_MULTICAST_LOOP	= 11; { u_int; setget IP6 multicast loopback }
 	IPV6_JOIN_GROUP		= 12; { ip6_mreq; join a group membership }
 	IPV6_LEAVE_GROUP	= 13; { ip6_mreq; leave a group membership }
-	IPV6_PORTRANGE		= 14; { int; range to choose for unspec port }
+	IPV6_PORTRANGE		= 14; { int; range to choose for unspecified port }
 
 	IPV6_PKTINFO            = 46; { in6_pktinfo; send if, src addr }	
  	IPV6_HOPLIMIT           = 47; { int; send hop limit }

packages/rtl-extra/src/haiku/osdefs.inc

@@ -1,7 +1,7 @@
 {
     Copyright (c) 2000-2002 by Marco van de Voort
 
-    Target dependent defines used when compileing the baseunix unit
+    Target dependent defines used when compiling the baseunix unit
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by

packages/rtl-extra/src/haiku/unxsockh.inc

@@ -255,7 +255,7 @@ Const
 	IPPROTO_IGRP		= 88; 		{ Cisco/GXS IGRP }
 	IPPROTO_OSPFIGP		= 89; 		{ OSPFIGP }
 	IPPROTO_SRPC		= 90; 		{ Strite RPC protocol }
-	IPPROTO_LARP		= 91; 		{ Locus Address Resoloution }
+	IPPROTO_LARP		= 91; 		{ Locus Address Resolution }
 	IPPROTO_MTP		= 92; 		{ Multicast Transport }
 	IPPROTO_AX25		= 93; 		{ AX.25 Frames }
 	IPPROTO_IPEIP		= 94; 		{ IP encapsulated in IP }
@@ -283,7 +283,7 @@ Const
  }
 	IP_OPTIONS		= 1 ;   { buf/ip_opts; set/get IP options }
 	IP_HDRINCL		= 2 ;   { int; header is included with data }
-	IP_TOS			= 3 ;   { int; IP type of service and preced. }
+	IP_TOS			= 3 ;   { int; IP type of service and precede. }
 	IP_TTL			= 4 ;   { int; IP time to live }
 	IP_RECVOPTS		= 5 ;   { bool; receive all IP opts w/dgram }
 	IP_RECVRETOPTS		= 6 ;   { bool; receive IP opts for response }
@@ -313,7 +313,7 @@ Const
 	IP_RSVP_OFF		= 16;   { disable RSVP in kernel }
 	IP_RSVP_VIF_ON		= 17;   { set RSVP per-vif socket }
 	IP_RSVP_VIF_OFF		= 18;   { unset RSVP per-vif socket }
-	IP_PORTRANGE		= 19;   { int; range to choose for unspec port }
+	IP_PORTRANGE		= 19;   { int; range to choose for unspecified port }
 	IP_RECVIF		= 20;   { bool; receive reception if w/dgram }
 
 { for IPSEC }
@@ -353,7 +353,7 @@ Const
 (* Values not yet defined under Haiku (see netinet/in.h)
 	IPV6_JOIN_GROUP		= 12; { ip6_mreq; join a group membership }
 	IPV6_LEAVE_GROUP	= 13; { ip6_mreq; leave a group membership }
-	IPV6_PORTRANGE		= 14; { int; range to choose for unspec port }
+	IPV6_PORTRANGE		= 14; { int; range to choose for unspecified port }
 
 	IPV6_PKTINFO            = 46; { in6_pktinfo; send if, src addr }	
  	IPV6_HOPLIMIT           = 47; { int; send hop limit }

packages/rtl-extra/src/inc/matrix.pp

@@ -529,7 +529,7 @@ operator := (const v:Tmatrix4_double) result:Tmatrix4_extended;
 operator := (const v:Tmatrix4_extended) result:Tmatrix4_single;
 operator := (const v:Tmatrix4_extended) result:Tmatrix4_double;
 
-{Matrix to matrix operatons.}
+{Matrix to matrix operations.}
 operator + (const m1,m2:Tmatrix2_single) result:Tmatrix2_single;
 operator + (const m1,m2:Tmatrix2_double) result:Tmatrix2_double;
 operator + (const m1,m2:Tmatrix2_extended) result:Tmatrix2_extended;

packages/rtl-extra/src/inc/objects.pp

@@ -2219,7 +2219,7 @@ PROCEDURE TCollection.Pack;
 VAR I, J: Sw_Integer;
 BEGIN
    I := 0;                                            { Initialize dest }
-   J := 0;                                            { Intialize test }
+   J := 0;                                            { Initialize test }
    While (I<Count) AND (J<Limit) Do Begin             { Check fully packed }
      If (Items^[J]<>Nil) Then Begin                   { Found a valid item }
        If (I<>J) Then Begin
@@ -2283,7 +2283,7 @@ END;
 PROCEDURE TCollection.AtFree (Index: Sw_Integer);
 VAR Item: Pointer;
 BEGIN
-   Item := At(Index);                                 { Retreive item ptr }
+   Item := At(Index);                                 { Retrieve item ptr }
    AtDelete(Index);                                   { Delete item }
    FreeItem(Item);                                    { Free the item }
 END;

packages/rtl-extra/src/inc/ucomplex.pp

@@ -263,7 +263,7 @@ Unit UComplex;
   {$ifdef TEST_INLINE}
   inline;
   {$endif TEST_INLINE}
-    { substraction : z := z1 - z2 }
+    { subtraction : z := z1 - z2 }
     begin
        z.re := z1.re - z2.re;
        z.im := z1.im - z2.im;
@@ -273,7 +273,7 @@ Unit UComplex;
   {$ifdef TEST_INLINE}
   inline;
   {$endif TEST_INLINE}
-    { substraction : z := z1 - r }
+    { subtraction : z := z1 - r }
     begin
        z.re := z1.re - r;
        z.im := z1.im;
@@ -283,7 +283,7 @@ Unit UComplex;
   {$ifdef TEST_INLINE}
   inline;
   {$endif TEST_INLINE}
-    { substraction : z := - z1 }
+    { subtraction : z := - z1 }
     begin
        z.re := -z1.re;
        z.im := -z1.im;
@@ -293,7 +293,7 @@ Unit UComplex;
   {$ifdef TEST_INLINE}
   inline;
   {$endif TEST_INLINE}
-    { substraction : z := r - z1 }
+    { subtraction : z := r - z1 }
     begin
        z.re := r - z1.re;
        z.im := - z1.im;
@@ -436,7 +436,7 @@ Unit UComplex;
   { fonctions elementaires }
 
   function cexp (const z : complex) : complex;
-    { exponantial : r := exp(z) }
+    { exponential : r := exp(z) }
     { exp(x + iy) = exp(x).exp(iy) = exp(x).[cos(y) + i sin(y)] }
     var expz : real;
     begin

packages/rtl-extra/src/linux/osdefs.inc

@@ -1,7 +1,7 @@
 {
     Copyright (c) 2000-2002 by Marco van de Voort
 
-    Target dependent defines used when compileing the baseunix unit
+    Target dependent defines used when compiling the baseunix unit
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by

packages/rtl-extra/src/netbsd/unxsockh.inc

@@ -263,7 +263,7 @@ Const
 	IPPROTO_IGRP		= 88; 		{ Cisco/GXS IGRP }
 	IPPROTO_OSPFIGP		= 89; 		{ OSPFIGP }
 	IPPROTO_SRPC		= 90; 		{ Strite RPC protocol }
-	IPPROTO_LARP		= 91; 		{ Locus Address Resoloution }
+	IPPROTO_LARP		= 91; 		{ Locus Address Resolution }
 	IPPROTO_MTP		= 92; 		{ Multicast Transport }
 	IPPROTO_AX25		= 93; 		{ AX.25 Frames }
 	IPPROTO_IPEIP		= 94; 		{ IP encapsulated in IP }
@@ -291,7 +291,7 @@ Const
  }
 	IP_OPTIONS		= 1 ;   { buf/ip_opts; set/get IP options }
 	IP_HDRINCL		= 2 ;   { int; header is included with data }
-	IP_TOS			= 3 ;   { int; IP type of service and preced. }
+	IP_TOS			= 3 ;   { int; IP type of service and precede. }
 	IP_TTL			= 4 ;   { int; IP time to live }
 	IP_RECVOPTS		= 5 ;   { bool; receive all IP opts w/dgram }
 	IP_RECVRETOPTS		= 6 ;   { bool; receive IP opts for response }
@@ -308,7 +308,7 @@ Const
 	IP_RSVP_OFF		= 16;   { disable RSVP in kernel }
 	IP_RSVP_VIF_ON		= 17;   { set RSVP per-vif socket }
 	IP_RSVP_VIF_OFF		= 18;   { unset RSVP per-vif socket }
-	IP_PORTRANGE		= 19;   { int; range to choose for unspec port }
+	IP_PORTRANGE		= 19;   { int; range to choose for unspecified port }
 	IP_RECVIF		= 20;   { bool; receive reception if w/dgram }
 
 { for IPSEC }
@@ -344,13 +344,13 @@ Const
 	IPV6_MULTICAST_LOOP	= 11; { u_int; setget IP6 multicast loopback }
 	IPV6_JOIN_GROUP		= 12; { ip6_mreq; join a group membership }
 	IPV6_LEAVE_GROUP	= 13; { ip6_mreq; leave a group membership }
-	IPV6_PORTRANGE		= 14; { int; range to choose for unspec port }
+	IPV6_PORTRANGE		= 14; { int; range to choose for unspecified port }
 
 	IPV6_PKTINFO            = 46; { in6_pktinfo; send if, src addr }	
  	IPV6_HOPLIMIT           = 47; { int; send hop limit }
  	IPV6_NEXTHOP            = 48; { sockaddr; next hop addr }
  	IPV6_HOPOPTS            = 49; { ip6_hbh; send hop-by-hop option }
- 	IPV6_DSTOPTS            = 50; { ip6_dest; send dst option befor rthdr }
+ 	IPV6_DSTOPTS            = 50; { ip6_dest; send dst option before rthdr }
  	IPV6_RTHDR              = 51; { ip6_rthdr; send routing header }
  	IPV6_PKTOPTIONS         = 52; { buf/cmsghdr; set/get IPv6 options }
 

packages/rtl-extra/src/netwcomn/qos.inc

@@ -177,7 +177,7 @@
      QOS_OBJECT_SHAPER_QUEUE_LIMIT = $00000006 + QOS_GENERAL_ID_BASE;
   { QOS_ShaperQueueLimit structure  }
   {
-     This structure defines the absolute priorty of the flow.  Priorities in the
+     This structure defines the absolute priority of the flow.  Priorities in the
      range of 0-7 are currently defined. Receive Priority is not currently used,
      but may at some point in the future.
     }
@@ -208,7 +208,7 @@
       will be demoted to less than best-effort priority.
 
      PS_NONCONF_SHAPE - TokenRate must be specified. Non-conforming
-      packets will be retianed in the packet shaper until they become
+      packets will be retained in the packet shaper until they become
       conforming.
 
      PS_NONCONF_DISCARD - TokenRate must be specified. Non-conforming

packages/rtl-extra/src/netwcomn/winsock.pp

@@ -33,7 +33,7 @@ unit winsock;
   {$endif}
     const
        {
-         Default maximium number of sockets.
+         Default maximum number of sockets.
          this does not mean that the underlying netware
          Sockets implementation has to support that many!
        }
@@ -1318,7 +1318,7 @@ unit winsock;
   { There are three interesting authentication types }
   { CLIENT -    Client initiates a SSL connection.  }
   { SERVER - Listener set up to listen for incoming SSL conns, (Server sends it's cert during auth) }
-  { MUTUAL is SSL Server requesting client authentication, (Server asks for client cert inaddition to sending it's cert) }
+  { MUTUAL is SSL Server requesting client authentication, (Server asks for client cert in addition to sending it's cert) }
   { optval is a DWORD defined as }
 
   const

packages/rtl-extra/src/openbsd/unxsockh.inc

@@ -241,7 +241,7 @@ Const
 	IPPROTO_IGRP		= 88; 		{ Cisco/GXS IGRP }
 	IPPROTO_OSPFIGP		= 89; 		{ OSPFIGP }
 	IPPROTO_SRPC		= 90; 		{ Strite RPC protocol }
-	IPPROTO_LARP		= 91; 		{ Locus Address Resoloution }
+	IPPROTO_LARP		= 91; 		{ Locus Address Resolution }
 	IPPROTO_MTP		= 92; 		{ Multicast Transport }
 	IPPROTO_AX25		= 93; 		{ AX.25 Frames }
 	IPPROTO_IPEIP		= 94; 		{ IP encapsulated in IP }
@@ -269,7 +269,7 @@ Const
  }
 	IP_OPTIONS		= 1 ;   { buf/ip_opts; set/get IP options }
 	IP_HDRINCL		= 2 ;   { int; header is included with data }
-	IP_TOS			= 3 ;   { int; IP type of service and preced. }
+	IP_TOS			= 3 ;   { int; IP type of service and precede. }
 	IP_TTL			= 4 ;   { int; IP time to live }
 	IP_RECVOPTS		= 5 ;   { bool; receive all IP opts w/dgram }
 	IP_RECVRETOPTS		= 6 ;   { bool; receive IP opts for response }
@@ -286,7 +286,7 @@ Const
 	IP_RSVP_OFF		= 16;   { disable RSVP in kernel }
 	IP_RSVP_VIF_ON		= 17;   { set RSVP per-vif socket }
 	IP_RSVP_VIF_OFF		= 18;   { unset RSVP per-vif socket }
-	IP_PORTRANGE		= 19;   { int; range to choose for unspec port }
+	IP_PORTRANGE		= 19;   { int; range to choose for unspecified port }
 	IP_RECVIF		= 20;   { bool; receive reception if w/dgram }
 
 { for IPSEC }
@@ -322,7 +322,7 @@ Const
 	IPV6_MULTICAST_LOOP	= 11; { u_int; setget IP6 multicast loopback }
 	IPV6_JOIN_GROUP		= 12; { ip6_mreq; join a group membership }
 	IPV6_LEAVE_GROUP	= 13; { ip6_mreq; leave a group membership }
-	IPV6_PORTRANGE		= 14; { int; range to choose for unspec port }
+	IPV6_PORTRANGE		= 14; { int; range to choose for unspecified port }
 
 	IPV6_PKTINFO            = 46; { in6_pktinfo; send if, src addr }	
  	IPV6_HOPLIMIT           = 47; { int; send hop limit }

packages/rtl-extra/src/os2commn/sockets.pp

@@ -351,7 +351,7 @@ const
   SIOCSIFSETSIG = (Ord('i') SHL 8) OR 25;
   SIOCSIFCLRSIG = (Ord('i') SHL 8) OR 26;
   SIOCSIFBRD    = (Ord('i') SHL 8) OR 27; { SINGLE-rt bcst. using old # for bkw cmpt }
-  SIOCSIFALLRTB = (Ord('i') SHL 8) OR 63; { added to configure all-route broadcst }
+  SIOCSIFALLRTB = (Ord('i') SHL 8) OR 63; { added to configure all-route broadcast }
 
   SIOCGIFLOAD     =(Ord('i') SHL 8) OR 27;
   SIOCSIFFILTERSRC=(Ord('i') SHL 8) OR 28;
@@ -387,7 +387,7 @@ const
 
 
 {$IFDEF SLBOOTP}
-  SIOCGUNIT     = (Ord('i') SHL 8) OR 70;    { Used to retreive unit number on }
+  SIOCGUNIT     = (Ord('i') SHL 8) OR 70;    { Used to retrieve unit number on }
                                              { serial interface }
 {$ENDIF}
 
@@ -546,7 +546,7 @@ const
   IP_ADD_MEMBERSHIP     = 5;   // ip_mreq; add an IP group membership
   IP_DROP_MEMBERSHIP    = 6;   // ip_mreq; drop an IP group membership
   IP_HDRINCL            = 7;   // int; header is included with data
-  IP_TOS                = 8;   // int; IP type of service and preced.
+  IP_TOS                = 8;   // int; IP type of service and precede.
   IP_TTL                = 9;   // int; IP time to live
   IP_RECVOPTS           = 10;  // bool; receive all IP opts w/dgram
   IP_RECVRETOPTS        = 11;  // bool; receive IP opts for response

packages/rtl-extra/src/os2commn/winsock.pp

@@ -2,7 +2,7 @@
 
 
     This file is part of the Free Pascal run time library.
-    Copyrigth (c) 2003 by Yuri Prokushev ([email protected])
+    Copyright (c) 2003 by Yuri Prokushev ([email protected])
 
     This file corresponds to version 1.1 of the Windows Sockets
     specification.

packages/rtl-extra/src/solaris/osdefs.inc

@@ -1,7 +1,7 @@
 {
     Copyright (c) 2000-2002 by Marco van de Voort
 
-    Target dependent defines used when compileing the baseunix unit
+    Target dependent defines used when compiling the baseunix unit
 
     This program is free software; you can redistribute it and/or modify
     it under the terms of the GNU General Public License as published by

packages/rtl-extra/src/unix/clocale.pp

@@ -127,7 +127,7 @@ procedure GetFormatSettings(out fmts: TFormatSettings);
   begin
     Result := '';
     l := Length(s);
-    //possible flag, with specifier or modifier - glibc exension
+    //possible flag, with specifier or modifier - glibc extension
     while (i<=l) and (s[i] in ['0'..'9', '_', '-', '^', '#', 'E', 'O']) do begin
       Result := Result + s[i];
       inc(i);

packages/rtl-extra/src/unix/gpm.pp

@@ -19,7 +19,7 @@ unit gpm;
 {Note: Libgpm is *the* interface for Linux text-mode programs.
        Unfortunately it isn't suitable for anything else besides a blocky
        cursor on a text mode interface. The GPM protocol suffers from serious
-       defficiencies and ideally, gpm is abolished as quickly as possible.
+       deficiencies and ideally, gpm is abolished as quickly as possible.
 
        With lack of a good alternative, GPM deserves good support. But
        please keep this in mind while coding.}

packages/rtl-extra/src/unix/ipc.pp

@@ -786,7 +786,7 @@ type
      end;
    {$elseif defined(Solaris)}
      PSEM = ^TSEM;
-     TSEM = record end; // opague
+     TSEM = record end; // opaque
 
      PSEMid_ds = ^TSEMid_ds;
      TSEMid_ds = record

packages/rtl-extra/src/unix/serial.pp

@@ -1,4 +1,4 @@
-{ Unit for handling the serial interfaces for Linux and similar Unices.
+{ Unit for handling the serial interfaces for Linux and similar Unixes.
   (c) 2000 Sebastian Guenther, [email protected]; modified MarkMLl 2012.
 }
 

packages/rtl-extra/src/win/serial.pp

@@ -1,4 +1,4 @@
-{ Unit for handling the serial interfaces for Linux and similar Unices.
+{ Unit for handling the serial interfaces for Linux and similar Unixes.
   (c) 2000 Sebastian Guenther, [email protected]; modified MarkMLl 2012.
   Windows variant written with reference to Dejan Crnila's TComPort v1.01.
 }

packages/rtl-extra/src/win/winsock.pp

@@ -36,7 +36,7 @@ unit WinSock;
     const
        WINSOCK_VERSION = $0101;
        {
-         Default maximium number of sockets.
+         Default maximum number of sockets.
          this does not
          mean that the underlying Windows Sockets implementation has to
          support that many!