[Витюшка]

спасибо большое а что значит это

Код:

b := b - (Ord('а') - Ord('А'));
          x[w] := chr(b);
        end;
    end;
    str := str + x[w];
  end;
  UpCaseAll := str;

lmikle: Еще раз повторяю - пользуемся правильными тегами!!!