А какво имаш предвид под специални сомволи?! Питам, защото не мога да се сетя за функция, която да ги "разваля" тия дето аз си мисля за тях :)
А иначе трябва проста да вадиш (или прибавяш) 64 от ASCII кода на симвила (192 е главно "А" на кирилица под windows, докато 128 е dos-овския му код).

for i := 1 to Length(s) do

  if s[ i ] in [#128..#191] then

    s[ i ] := Chr(Ord(s[ i ]) + 64); //DOS to Win или "- 64" за Win to DOS и [#192..#255] горе...

Редактирано от andrew_nikoloff на 30.05.04 16:20.