Foros Club Delphi - Problemas con UTF8 y/o caracteres Cirílicos

Hola a tod@s !

Mucho tiempo si pasar por aquí por mi parte ! .... pero siempre sigo con un ojo puesto en el foro. Hoy tengo una pequeña duda y recurro de nuevo a todos vosotros. Gracias por adelantado.

Tengo un WebBrowser que muestra un texto HTML, y quiero grabar dicho contenido en mi base de datos. Siempre ha funcionado correctamente hasta que he pasado a XE2 y trabajar con el alfabeto cirílico.

He llegado a acotar el problema a las siguientes líneas :

Código Delphi [-]iall := (WebBrowser1.Document as IHTMLDocument2).Body;
While iall.parentElement <> nil do
  iall := iall.parentElement;
 
Aux_Memo      := TMemo.Create(Self);
Aux_Memo.Text := iall.outerHTML;
 
f := TMemoryStream.Create;
Aux_Memo.Lines.SaveToStream(f);
Memo1.Text := Aux_Memo.Text;
f.seek(0,soFromBeginning);
Memo2.Lines.LoadFromStream(f);

Siendo iall del tipo IHTMLElement.

Memo1 me muestra los caracteres cirílicos correctamente :

Cita:

<TD class=s7 colSpan=22>Tenemos que comunicarle algo en Ruso : Давайте посмотрим, работает ли он

Pero Memo2 sólo me muestra ??????? ...

Cita:

<TD class=s7 colSpan=22>Tenemos que comunicarle algo en Ruso : ??????? ?????????, ???????? ?? ??</TD>

Llevo todo el día de ayer intentando buscarle una explicación y una solución, pero no logro dar con ella.

De nuevo, muchas gracias por vuestros comentarios.

Saludos