var
  oldName, newName : string;

begin
  // Попытка переименовать Unit1.dcu в Uni1.old
  oldName := 'Unit1.dcu';
  newName := ChangeFileExt(oldName, '.old');
  if RenameFile(oldName, newName)
  then ShowMessage('Unit1.dcu переименован')
  else ShowMessage('Unit1.dcu переименовка прошла с ошибкой : '+
                   IntToStr(GetLastError));

  // Позвольте нам попробовать то же самое, переименовать снова
  if RenameFile(oldName, newName)
  then ShowMessage('Unit1.dcu снова переименован')
  else ShowMessage('Unit1.dcu переименовка прошла с ошибкой : '+
                   IntToStr(GetLastError));

  // Наконец, позвольте нам переименовать файл назад
  if RenameFile(newName, oldName)
  then ShowMessage('Unit1.old переименован обратно')
  else ShowMessage('Unit1.old обратное переименование прошло с ошибкой : '+
                   IntToStr(GetLastError));
end;