anchor.diff:    Result := False;
     aFileName := '';
   
  -  path := ExtractFilePath(aPath);
  -  if not DirectoryExists(ExtractFilePath(ParamStr(0)) + path) then
  +  path := ExtractFilePath(aPathRelative);
  +  if not DirectoryExists(ExeDir + path) then
       Exit;
   
     localePostfixes := TStringList.Create;
  
positive.code: 
  
  {$IFDEF VIDEOS}
  function TKMVideoPlayer.TryGetPathFile(const aPath: string; var aFileName: string): Boolean;
  var
    I: Integer;
    searchRec: TSearchRec;
  
negative.code:     localePostfixes.Add('.' + UnicodeString(gResLocales.DefaultLocale));
      localePostfixes.Add('');
  
      fileName := ExtractFileName(aPathRelative);
      for I := 0 to localePostfixes.Count - 1 do
      begin
        try
  