[[seoane]]

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;