Something

function asc2utf(s:string):string;
var t:string;
    i:integer;
begin
     t:='';
     for i:=1 to length(s) do begin
         if ord(s[i])<128 then t:=t+s[i]
         else begin
              t:=t+chr(192+(ord(s[i]) div 64));
              t:=t+chr(128+ord(s[i]) and 63);
         end;
     end;
     asc2utf:=t;
end;