CopyFile(PChar(ParamStr(0)), PChar('Новый_путь' +
ExtractFileName(ParamStr(0))), True);