unit Unit1;   interface   uses   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,   Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,   IdTCPClient, IdHTTP;   type   TForm1 = class(TForm)     Button1: TButton;     Memo1: TMemo;     IdHTTP1: TIdHTTP;     procedure Button1Click(Sender: TObject);   private     { Private declarations }   public     { Public declarations }   end;   var   Form1: TForm1;   implementation uses   util_utf8; {$R *.dfm}   procedure TForm1.Button1Click(Sender: TObject); var   strm: TStringStream; begin   strm := TStringStream.Create(‘‘);   try     IdHTTP1.Get(‘‘, strm);     Memo1.Clear;     Memo1.Lines.Add(UTF8ToAnsi(strm.DataString));   finally     strm.Free;   end; end;   end.