Y por si tu versión de delphi no cuenta con la función UTF8Encode, aquí te dejo una alternativa usando la API de windows.
Código Delphi
[-]
function UTF8Encode2(Str: WideString): String;
var
Size: Integer;
begin
Size:= WideCharToMultiByte(CP_UTF8,0,PWideChar(Str),-1,nil,0,nil,nil);
if Size > 0 then
begin
SetLength(Result,Size);
WideCharToMultiByte(CP_UTF8,0,PWideChar(Str),-1,PChar(Result),Size,nil,nil);
end else
Result:= '';
end;