diff --git a/packages/fcl-base/src/blowfish2.pp b/packages/fcl-base/src/blowfish2.pp
index 4b475151aa..4369f5d48e 100644
--- a/packages/fcl-base/src/blowfish2.pp
+++ b/packages/fcl-base/src/blowfish2.pp
@@ -74,7 +74,7 @@ Type
     function GetPosition: Int64; override;
     procedure InvalidSeek; override;
   Public
-    Constructor Create(AKey : UTF8String; Dest: TStream); overload; virtual;
+    Constructor Create(const AKey : UTF8String; Dest: TStream); overload; virtual;
     Constructor Create(AKey : TBytes; Dest: TStream); overload; virtual;
     Destructor Destroy; override;
   end;
@@ -91,7 +91,7 @@ Type
   private
     FSourcePos0: Int64;
   public
-    Constructor Create(AKey : UTF8String; Dest: TStream); overload; virtual;
+    Constructor Create(const AKey : UTF8String; Dest: TStream); overload; virtual;
     Constructor Create(AKey : TBytes; Dest: TStream); overload; virtual;
     function Read(var Buffer; Count: Longint): Longint; override;
     function Seek(const Offset: Int64; Origin: TSeekOrigin): Int64; override;
@@ -1022,7 +1022,7 @@ begin
   raise EBlowFish2Error.Create(SNoSeekAllowed);
 end;
 
-constructor TBlowFish2Stream.Create(AKey: UTF8String; Dest: TStream);
+constructor TBlowFish2Stream.Create(const AKey: UTF8String; Dest: TStream);
 
 begin
   inherited Create(Dest);
@@ -1127,7 +1127,7 @@ begin
   FSourcePos0 := Source.Position;
 end;
 
-Constructor TBlowFish2DeCryptStream.Create(AKey : UTF8String; Dest: TStream); overload;
+Constructor TBlowFish2DeCryptStream.Create(const AKey : UTF8String; Dest: TStream); overload;
 
 begin
   inherited Create(AKey, Dest);
diff --git a/packages/fcl-base/src/csvreadwrite.pp b/packages/fcl-base/src/csvreadwrite.pp
index 249be814a6..fb8de61fb6 100644
--- a/packages/fcl-base/src/csvreadwrite.pp
+++ b/packages/fcl-base/src/csvreadwrite.pp
@@ -205,7 +205,7 @@ const
   WhitespaceChars = [HTAB, SPACE];
   LineEndingChars = [CR, LF];
 
-Procedure AppendStr(Var Dest : RawByteString; Src : RawByteString); inline;
+Procedure AppendStr(Var Dest : RawByteString; const Src : RawByteString); inline;
 
 begin
   Dest:=Dest+Src;