Кодирование в UTF8 в 2010+ студии

[Puhovoi]

Я пошел простым путем

procedure TPart.NewField (const name: string; const value: string; utf8enco : boolean = false);
begin
  if utf8enco then
    WriteStrToStream (ResultDocument, '--' + Boundary + CRLF + 'Content-Disposition: form-data; name="' + name + '"' + CRLF + CRLF + utf8encodetoshortstring (value) + CRLF)
  else
    WriteStrToStream (ResultDocument, '--' + Boundary + CRLF + 'Content-Disposition: form-data; name="' + name + '"' + CRLF + CRLF + value + CRLF);
end;

part.newfield ('user', 'Мария', true);

... Чтобы компилятор кучу предупреждений не выдавал в основном юните.

И в 99% случаев кодирование такое не нужно, это твиттер оригинальничает.