1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:

var ChaNr : integer;
    SelLg : longint; //enthält Lg markierter Text
    sM    : String;  //enthält markierten Text
for j:=1 to SelLg do 
  begin
    ChaNr:=ord(sM[j]);
    if ChaNr>64 then begin                    //unter 65 bleibt unverändert
      if (ChaNr<=90) then inc(ChaNr,32)       //A..Z wird a..z
      else if (ChaNr<97) then
      else if (ChaNr<=122) then dec(ChaNr,32) //a..z wird A..Z
      else if (ChaNr<192) then                //unverändert,ebenso mal,div am Num-Block
      else if (ChaNr<=222) and not (ChaNr=215) then inc(ChaNr,32)
      else if (ChaNr<=254) and not (ChaNr=215) and not (ChaNr=247) then dec(ChaNr,32);
      sM[j]:= chr(ord(ChaNr));
    end;
  end;