Ыть!
А можно сделать и так:
Function Decoder(Deco:string):string;
var
ch:char;
ds:string;
d_temp,i:integer;
begin
ds:='';
for i:=1 to length(Deco) do
begin
ch:=getchar(deco,(i-1));
d_temp:=ord(ch);
if d_temp>122 then ds:=ds+chr(d_temp+1104)
else
ds:=ds+getchar(deco,j-1);
end;
decoder:=ds;
end;
Стандартные возможности МП рулят! Так то!
P.S. незнаю, работает ли это в МП3.