[koszh2007]

Спасибо большое... но и это не помогло (переводит в другую кодировку)... но кое как решил проблему... я по-буквено строку прекодировал в ансичар и получилось

Код:

function rus(s: string): string;
var
   i: integer;
   str:string;
   Name: PAnsiChar;
begin
  str:='';
  for i:=1 to Length(s) do
  begin
    name:= PAnsiChar(copy(s,i,1));
    str:=str+name;
  end;
  result:=str;
end;