Delphi语句转换成批处理

var
  i,i1,i2: String;

begin
  i  := 'MyData.ini';
  i1 := 'MyData1.ini';
  i2 := 'MyData2.ini';
  if FileExists(i1)  then
  begin
   ReNameFile(i,i2);
   ReNameFile(i1,i);
  end
  else if FileExists(i2) then
  begin
   RenameFile(i,i1);
   RenameFile(i2,i);
  end;
end;
end.

我只转换了if部分，else部分转换不出来了，帮一下忙吧，谢谢！
我转换的前半部分是：
if exist MyData1.ini ren MyData.ini MyData2.ini ren MyData1.ini MyData.ini

************************************************************************************

ReplyMan：LSUPER

Answer：用 goto：

if exist MyData1.ini goto REN_FILE1

if exist MyData2.ini goto REN_FILE2

goto REN_EXIT

:REN_FILE1

ren MyData.ini MyData2.ini
ren MyData1.ini MyData.ini
goto REN_EXIT

:REN_FILE2

ren MyData.ini MyData1.ini
ren MyData2.ini MyData.ini

:REN_EXIT