* Add ChangeFilePath

rtl/objpas/sysutils/fina.inc

@@ -37,6 +37,12 @@ begin
   Result := Copy(FileName, 1, I - 1) + Extension;
 end;
 
+function ChangeFilePath(const aFileName,aPath: PathStr): PathStr;
+begin
+  Result:=IncludeTrailingPathDelimiter(aPath)+ExtractFileName(aFileName);
+end;
+
+
 function ExtractFilePath(const FileName: PathStr): PathStr;
 var
   i : longint;

rtl/objpas/sysutils/finah.inc

@@ -21,6 +21,7 @@ type
 {$endif}
 
 function ChangeFileExt(const FileName, Extension: PathStr): PathStr;
+function ChangeFilePath(const aFileName,aPath: PathStr): PathStr;
 function ExtractFilePath(const FileName: PathStr): PathStr;
 function ExtractFileDrive(const FileName: PathStr): PathStr;
 function ExtractFileName(const FileName: PathStr): PathStr;