[Страдалецъ]

Код:

for i := 1 to Length(UserWord)
do if Odd(i) 
    then UserWord[i] := AnsiLowerCase(UserWord[i])
    else UserWord[i] := AnsiUpperCase(UserWord[i]);