Удаление файла

  uses
   ...  SysUtils, LazUTF8, FileUtil ;   
 
   ..... 
 
  if CopyFile(UTF8ToSys(s_Tmp_2), UTF8ToSys(s_Tmp_3), True) then begin   // Копирование
      
      //if fileExists(UTF8ToWinCP(s_Tmp_2))then    //  ПРОВЕРКА РАБОТАЕТ 
      //if DeleteFile(UTF8ToWinCP(s_Tmp_2)) then   // не работает    
      //if DeleteFile(UTF8ToSys(s_Tmp_2)) then    // не работает   
      if DeleteFile(s_Tmp_2) then s_Tmp_1 := ' скопирован, удален '
      else s_Tmp_1 := ' скопирован, НЕ удален ' ; 
      
  end;
  
  cn_MM_TXT_1.Lines.Add(s_Tmp_1) ;   // Тут отчет о результатах

uses
   ...  SysUtils, ...;
 
function FileRename(const OldName, NewName: string): Boolean;
var
  Path: string;
begin
  if (OldName = '') or (NewName = '') then exit(False); //не задано имя
  if not FileExists(OldName) then exit(False);          //нечего перемещать
  if OldName = NewName then exit(False);                //незачем перемещать
  Path := ExtractFilePath(NewName);
  if (Path <> '') and not ForceDirectories(Path) then exit(False); //скорее всего
  Result := RenameFile(OldName, NewName);                          //не хватает прав
end;

      If FileRename(UTF8ToWinCP(s_Tmp_2), UTF8ToWinCP(s_Tmp_3)) then s_Tmp_1 := ' Получилось !!! '
      else s_Tmp_1 := ' НЕ получилось !!! ' ;   
 
      cn_MM_TXT_1.Lines.Add(s_Tmp_1) ;   // Тут отчет о результатах

  if OldName = NewName then exit(False);

  if AnsiCompareText(OldName, NewName) = 0 then exit(False);