How to save HTTP data in UTF-8 format

var
  strURL: string;
  html: TStringStream;
begin
  strURL:='Something here';
  html :=   TStringStream.Create('', TEncoding.UTF8);
 
  try
 
    clHttp1.Get(strURL,html);
 
    Memo1.Text:=html.DataString;
  finally
    html.Free;
  end;
 
end;