diff --git a/components/lazutils/winlazfileutils.inc b/components/lazutils/winlazfileutils.inc
index c5df6f79ed..d966dc1207 100644
--- a/components/lazutils/winlazfileutils.inc
+++ b/components/lazutils/winlazfileutils.inc
@@ -656,21 +656,6 @@ begin
     Result := Integer(GetLastError);
 end;
 
-//fpc 2.6.0 does not have StrLen for WideChar.
-//Remove this when we have 2.6.4 or higher
-{$if FPC_FULLVERSION < 20602}
-function StrLen(PW: PWideChar): SizeInt; overload;
-var
-  i: SizeInt;
-begin
-  i:=0;
-  if assigned(PW) then
-    while (PW[i] <> #0) do inc(i);
-  Result := i;
-end;
-{$endif}
-
-
 {$IFDEF WINCE}
 // In WinCE these API calls are in Windows unit
 function GetWindowsSpecialDirW(ID :  Integer) : String;
diff --git a/components/lazutils/winlazutf8.inc b/components/lazutils/winlazutf8.inc
index 3d367db9f4..266cfc5fc6 100644
--- a/components/lazutils/winlazutf8.inc
+++ b/components/lazutils/winlazutf8.inc
@@ -37,19 +37,6 @@ end;
 
 //*************** START WideString impementations
 
-//fpc 2.6.0 does not have StrLen for WideChar.
-//Remove this when we have 2.6.4 or higher
-{$if FPC_FULLVERSION < 20602}
-function StrLen(PW: PWideChar): SizeInt; overload;
-var
-  i: SizeInt;
-begin
-  i:=0;
-  if assigned(PW) then
-    while (PW[i] <> #0) do inc(i);
-  Result := i;
-end;
-{$endif}
 
 {$IF (FPC_FULLVERSION >= 30000) AND NOT DEFINED(DisableUTF8RTL) AND NOT DEFINED(WINCE)}
 procedure SetupArgvAsUtf8;