TWebbrowser код страницы кирилица

[Halogen]

Здравствуйте использую данный код для просмотра кода страницы

function TForm1.WB_GetHTMLCode(WebBrowser: TWebBrowser;
  ACode: TStrings): Boolean;
 var
   ps: IPersistStreamInit;
   ss: TStringStream;
   sa: IStream;
   s: string;
 begin
   ps := WebBrowser.Document as IPersistStreamInit;
   s := '';
   ss := TStringStream.Create(s);
   try
     sa := TStreamAdapter.Create(ss, soReference) as IStream;
     Result := Succeeded(ps.Save(sa, True));
     if Result then ACode.Add(ss.Datastring);
   finally
     ss.Free;
   end;
 end;

К сожалению кириллица не читабельна что делать?

[Человек_Борща]

Преобразовать UTF8Decode

[Halogen]

Сообщение от Человек_Борща

Преобразовать UTF8Decode

Не помогло все ровно каракули

Прошу прощения , все норм помогло просто не так воспользовался , спасибо