Задать Аппиар Кейс формулой

[HellMercenaries]

Подскажите как задать измение каждого второго символа кодом.
Mallhollanddrive
Нужно - MaLlHoLlAnDdRiVe
BeStBiShOp

[Evgeniy26]

var
  Str: String;
  index: Integer;
begin
  Str := 'Mallhollanddrive';
  index := 2;//3
  while index <= Length(Str) do
  begin
    Str[index] := UpCase(Str[index]);
    index := index + 2;
  end;
.....

[HellMercenaries]

Спасибо !