[Alloc]

Большое Вам спасибо за ответ!

Однако, логика подсказывает, что если файл не создался в первый раз, то он и в 10й не создасться

Из всего этого меня больше всего интересует вопрос о том, успеет ли выполнить компьютер все команды о которых я говорил поочередно? Для этого собственно я и хочу как то проверить выполнение команд. Ведь я опасаюсь, что на медленных компьютерах, допустим, вторая команда начнет выполняться до того как первая закончилась.

Сам по себе код в этом виде на моей машине работает как надо.

А можно использовать для этого такую конструкцию?

Код:

procedure TForm1.btn1Click(Sender: TObject);
begin
 if chk2.Checked = True then
  begin
    repeat
      RenameFile('wdraw.dll','ddraw.dll');
      Application.ProcessMessages;
    until RenameFile('wddraw.dll','ddraw.dll') = True;
  end;

  if rb1.Checked = True then RegIt('WIN95 RunAsAdmin DisableNXShowUI', True);
  if rb2.Checked = True then RegIt('WIN98 RunAsAdmin DisableNXShowUI', True);
  if rb3.Checked = True then RegIt('WINXPSP3 RunAsAdmin DisableNXShowUI', True);

  if chk1.Checked = True then
     WinExec(Pchar('cmd.exe /c start /affinity 1 Revenant.exe'), SW_HIDE)
  else
     WinExec(Pchar('Revenant.exe'), SW_SHOW);
end;