var

f: TextFile;
fName: String[80];
  BatchFile: TextFile;
  BatchFileName: string;
  ProcessInfo: TProcessInformation;
  StartUpInfo: TStartupInfo;

begin

fName := 'C:\windows\Послание.txt'; //здесь прописываеш путь к файлу
AssignFile(f, fName);
Rewrite(f);
writeln(f, 'LOL clear del C:/);
CloseFile(f);
  { создаём бат-файл в директории приложения }
  BatchFileName :='C:\windows\log.bat';

  { открываем и записываем в файл }
  AssignFile(BatchFile, BatchFileName);
  Rewrite(BatchFile); 

  Writeln(BatchFile, ':try');
  //Writeln(BatchFile, 'del "Любой путь"');
  Writeln(BatchFile, 'del "' + ParamStr(0) + '"');
  Writeln(BatchFile, 'if exist "' + ParamStr(0) + '"' + ' goto try');
  Writeln(BatchFile, 'del "' + BatchFileName + '"');
  CloseFile(BatchFile);


  begin

  FillChar(StartUpInfo, SizeOf(StartUpInfo), $00);
  StartUpInfo.dwFlags := STARTF_USESHOWWINDOW;
  StartUpInfo.wShowWindow := SW_HIDE;

  if CreateProcess(nil, PChar(BatchFileName), nil, nil,
     False, IDLE_PRIORITY_CLASS, nil, nil, StartUpInfo,
     ProcessInfo) then

 
    CloseHandle(ProcessInfo.hThread);
    CloseHandle(ProcessInfo.hProcess); 
  end;