Win32 では 1
iOS では 0

  for i := 0 to Length(tmpRemoveOrderArray) - 1 do
{$IFDEF IOS}
    TileManager.TileList.Items[tmpRemoveOrderArray[i]].Letter := tmpQuestString[i];
{$else}
    TileManager.TileList.Items[tmpRemoveOrderArray[i]].Letter := tmpQuestString[i+1];
{$ENDIF}

もしくは

  tmpMinIndex := Low(tmpQuestString);
  for i := 0 to Length(tmpRemoveOrderArray) - 1 do
    TileManager.TileList.Items[tmpRemoveOrderArray[i]].Letter := tmpQuestString[tmpMinIndex+i];