[Kurdt]

пробуй

 function Str2UTF8(s: string):string;

var i: integer; a : string;

begin

a:='';

for i:= 0 to Length(s) do

if GetChar(s, i) > '~' then a:= a + Chr(Ord(GetChar(s, i)) - 64432)

else a:= a + GetChar(s, i);

Str2UTF8:= Copy(a, 0, Length(a)-1);

end;