Может и правильный, но исходной задаче не соответствует.
Цитата:
1. Создается файл
2. Файл переименовывается
3. Файл копируется куда-либо
|
А в написанном коде выполняется переименование, потом вызывается некая функция RegIt (причем лучше было использовать else'ы, раз в качестве переключателей используются взаимоисключающие RadioButton'ы), после чего происходит запуск через WinExec.
Но этот бредовый цикл по-любому надо убирать, как минимум потому, что в нем RenameFile вызывается два или более раз. Если уж хочется выполнять переименование до тех пор, пока оно не вернет true, то делается это так
Код:
while RenameFile(...) = false do
sleep(10); //можно еще Application.ProcessMessages;
Только вот смысла в таком решении мало: если файл не переименовался с первого раза, то скорее всего и с десятого не переименуется.