[Piligrim]

можно и так

function UpperCase(s : string) : string;
var
    i, c : integer;
begin
    for i:= 0 to length(s) do begin
        c := ord(GetChar(s, i));
        if ((c>1071) and (c<1103)) or (c=1105) then
            c := c-32;
        s := SetChar(s, chr(c), i);    
    end;
    UpperCase := s;
end;